por Adrian » 28 Ago 2006 15:36
Hola!
No entiendo bien lo que deseas, pero este código puede ayudar:
Dim oldStatusBar As Boolean
Private Sub UserForm_Initialize()'Al iniciar el form
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Esta el Formulario " & Me.Caption
End Sub
Private Sub UserForm_UnLoad()'al cerrarlo
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
Atte.