基本はウインドウのHDCのハンドルを得てGDIのLine文で線を書く。

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

しかし、画面の再描画時に線は消えてしまう。
再描画のときに画面を消えなくする一つの方法は、ウインドウのPAINTイベント
が発生した時に線をかくようにすること。


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