porque no funciona?
Publicado por Hector (233 intervenciones) el 20/10/2001 08:42:26
Option Explicit
Dim X As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X + 1
Label1.Caption = "Me has tocado: " + Str(X) + "Veces"
End
End Sub
Private Sub Form_Load()
X = 0
End Sub
Dim X As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = X + 1
Label1.Caption = "Me has tocado: " + Str(X) + "Veces"
End
End Sub
Private Sub Form_Load()
X = 0
End Sub
Valora esta pregunta


0