Private SelStart As Boolean
Private StartX As Single
Private StartY As Single

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
    If Button = 1 Then
        StartX = X
        StartY = Y
        SelStart = True
    End If
 
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
 
    If SelStart = True Then
        Picture1.Cls
        Picture1.Line (StartX, StartY)-(X, Y), , B
    End If
 
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 
    If Button = 1 Then
        SelStart = False
        Text1.Text = StartX
        Text2.Text = X
        Text3.Text = StartY
        Text4.Text = Y
    End If
 
End Sub

Picture1.ScaleMode = 3

Picture1.Scale (xmin, ymin)-(xmax, ymax)