Sub MainWnd_CommandButton1_Click()
Dim dc As HDC
Dim p As POINTAPI
dc=GetDC(hMainWnd)
MoveToEx(dc,0,0,p)
LineTo(dc,100,100)
End Sub
Sub MainWnd_Paint(hDC As HDC)
Dim dc1 As HDC
Dim pa As POINTAPI
dc1=GetDC(hMainWnd)
MoveToEx(dc1,0,100,pa)
LineTo(dc1,100,100)
End Sub