Option Explicit

Dim X1, Y1, X2, Y2

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    'Mouse_Downのときは、距離、角度ともに0である
    Picture1.Cls
    Label1.Caption = "距離= 0"
    Label2.Caption = "角度= 0"
    X1 = x
    Y1 = y
    
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim DA As DisAng 'DisAng構造体を使用

    If Button = 1 Then
        Picture1.Cls
        X2 = x
        Y2 = y
        Picture1.Line (X1, Y1)-(X2, Y2) '線を引く
        Picture1.Refresh
        
         'Pole関数を使用(結果は、DAに入っている)
        DA = Pole(X1, Y1, X2, Y2)
        
        '結果は、Labelに表示
        Label1.Caption = "距離= " & DA.Distance
        Label2.Caption = "角度= " & DA.Angle
        Label1.Refresh
        Label2.Refresh
    End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    
    'Mouse_Moveを呼び出す
    Picture1_MouseMove Button, Shift, x, y

End Sub