ayuda con formulario.

[nelsonv]

Iniciado por Avellaneda

Prueba a ver si te sirve esto:

<En el primer formulario>

Código:

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
    Me.Controls(i).Enabled = False
Next
Me.Enabled = False
Me.BackColor = &H8000000B
Form2.Show vbModal, Me
End Sub

<Al cerrar el segundo formulario>

Código:

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = 0 To Form1.Controls.Count - 1
    Form1.Controls(i).Enabled = True
Next
Form1.Enabled = True
Form1.BackColor = &H8000000F
End Sub

Muchas gracias funciono como queria.
Gracias por la respuesta desde que estoy en el foro es la primera respuesta que me ayudo como yo queria.
Chaos y nuevamente gracias.