hola Anna para probar el ejemplo necesitas 4 botones y un label1
el procedimiento para probar este ejemplo es asi:
ocultas con el boton command2 el command4
al ocultarlo das click en el command1
el command1 llamara un proceso llamado verificar
que verificara si el command4 es visible o no y metera la salida en la variable global a
si lo encuentra invisible escribira en el label1 el numero de desaparicion
si lo encuentra visible no hara nada
el command2 es para volver a poner visible el command4
espero que esto sea lo que pediste.
desde luego lo puedes usar con otros objetos pero el proposito es poner un ejemplo
este es mi correo si deseas el ejemplo
[email protected]
====================================================================
rem variables globales
Dim a As Boolean
Dim b As Integer
Private Sub Command1_Click()
verificar
If a = False Then
b = b + 1
label1.Caption = b
Else
Exit Sub
End If
End Sub
Sub verificar()
If Command4.Visible = False Then
a = False
Else
If Command4.Visible = True Then
a = True
End If
End If
End Sub
Private Sub Command2_Click()
Command4.Visible = False
End Sub
Private Sub Command3_Click()
Command4.Visible = True
End Sub
