Dim x1 As Long, x2 As Long, y1 As Long, y2 As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   x1 = ( 180  * (X \  180 ))
   x2 = ( 180  * (X \  180  +  1 ))
   y1 = ( 180  * (Y \  180 ))
   y2 = ( 180  * (Y \  180  +  1 ))
   Line (x1, y1)-Step( 180 ,  180 ), , B
   Me.Caption = "Button = " & X \  180  & ", " & Y \  180 
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Line (x1, y1)-Step( 180 ,  180 ), vbRed, B
End Sub