|
Private Sub Command1_Click()
'Linea orizzontale
Line (1000, 1000)-Step(1000, 0)
'Linea verticale
Line -Step(0, 1000)
'Linea verticale
Line (1000, 1000)-Step(0, 1000)
'Linea orizzontale
Line -Step(1000, 0)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Coordinate mouse
Label1.Caption = X & "," & Y
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Creato da: Roberto VB 25/02/2007 - www.pierotofy.it"
End Sub
|
|