为什么改变不了画笔的颜色和风格呢,该如何解决

为什么改变不了画笔的颜色和风格呢
这是我写的窗口过程的代码 ，帮忙看看WM_PAINT的处理过程有什么问题啊，为什么我的画笔的颜色和风格改变不了？

也就是修改 CreatePen（） 的参数没有用


LRESULT CALLBACK WindowProc(
HWND hwnd,
UINT uMsg,
WPARAM wParam,
LPARAM lParam)
{
PAINTSTRUCT ps;
HDC hdc;
HPEN pen;
switch(uMsg)
{
case WM_PAINT:
hdc =GetDC(hwnd);
pen =CreatePen(PS_DASH,10,RGB(255,0,0));
BeginPaint(hwnd,&ps);
LineTo(hdc,100,100);
EndPaint(hwnd,&ps);
DeleteObject(pen);
break;
case WM_CLOSE:
DestroyWindow(hwnd);
PostQuitMessage(NULL);
break;
default:
break;
}
return DefWindowProc(hwnd ,uMsg ,wParam,lParam);
}

[解决办法]

C/C++ code

HGDIOBJ SelectObject(  HDC hdc,          // handle to DC  HGDIOBJ hgdiobj   // handle to object);