vb6在屏幕上画线

Question

vb6

Answer 1

没有人吗？movetoex（）与lineto（）一起使用，movetoex（）指定坐标后，lineto一直是以（0,0）位起点，求解答

Answer 2

没有任何问题:
新建工程,窗体上放一个按钮:Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, lpPoint As PointAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Type PointAPI
   X As Long
   Y As Long
End Type
Private Sub Command1_Click()
Dim hdc As Long
Dim P As PointAPI
hdc = GetDC(0)
MoveToEx hdc, 200, 100, P
LineTo hdc, 1200, 400
End Sub

Answer 3

非常感谢，还想问一下movetoex的第四个参数我如果不需要保存上次的坐标   该怎么定义它