Option ExplicitPrivate Declare Function Polyline Lib "gdi32" (ByVal hdc As Long, lpPoint As point, ByVal nCount As Long) As LongPrivate Declare Function PolylineTo Lib "gdi32" (ByVal hdc As Long, lppt As point, ByVal cCount As Long) As LongPrivate Type point    x As Long    y As LongEnd Type    Dim Flag1 As BooleanDim Flag2 As BooleanDim Pos(10) As pointDim i As IntegerPrivate Sub Command1_Click()    Flag1 = True    Flag2 = FalseEnd SubPrivate Sub Command2_Click()    Flag1 = False    Flag2 = TrueEnd SubPrivate Sub Command3_Click()    Flag1 = False    Flag2 = FalseEnd SubPrivate Sub Command4_Click()    Me.Picture1.ClsEnd SubPrivate Sub Form_Load()    Flag1 = False    Flag1 = False    ‘禁止绘图    Me.ScaleMode = 3    Me.Picture1.ScaleMode = 3    ‘设置对象坐标的度量单位为像素    i = 0End SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)    If Flag1 Then        Pos(i).x = x        Pos(i).y = y    If (i >= 3) Then        Polyline Me.Picture1.hdc, Pos(0), 4        Me.Picture1.Circle (x, y), 3        i = 0        Exit Sub    End IfEnd If‘利用PolyLine函数绘图If Flag2 Then    Pos(i).x = x    Pos(i).y = y    If (i >= 3) Then        PolylineTo Me.Picture1.hdc, Pos(0), 3        Me.Picture1.Circle (x, y), 3        i = 0        Exit Sub    End IfEnd If‘利用PolyLineTo函数绘图If (i <= 3) Then    i = i + 1    Me.Picture1.Circle (x, y), 3End IfEnd Sub