24/06/2004, 10:38
|
| | | Fecha de Ingreso: abril-2004 Ubicación: Managua
Mensajes: 150
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Private Sub Form_Click()
MsgBox "Hola"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X = 635 And Y = 200 Then
Form_Click
Else
Label1.Caption = X & " " & Y
End If
End Sub
Incluye un label en la pantalla para que te fijes en que posicion esta el raton.
Espero que esto sea lo que necesites
Última edición por rsiles; 24/06/2004 a las 10:39 |