Hola lojam!!!
Lo logramos!! ambos pensamos igual!!, lo solucione asi mira.
Primero agrege esta funcion en los forms
Para desbloquear
Código:
Private Sub desB()
Me.Enabled = True
Dim controlesForm As Control
For Each controlesForm In Controls
If (TypeOf controlesForm Is ButtonTransparent) Then
controlesForm.Enabled = True
End If
Next
End Sub
Para bloquear
Código:
Private Sub Blo()
Dim controlesForm As Control
For Each controlesForm In Controls
If (TypeOf controlesForm Is ButtonTransparent) Then
controlesForm.Enabled = False
End If
Next
End Sub
Luego agrege en cada form un timer con un interval de 500.
Tanto en el Load como en el Activate, bloqueo, le doy el arranque al timer cuando el timer completa el tiempo desbloqueo y deshabilito el timer en cuestion.
Ahora si, pueden zapatear arriba del boton y no se bloquea el sistema.
Gracias Gracias !!!!!!!!

Como siempre, dentro de este foro siempre encuentro gente especional !!!