¿COMO SABES SI UN FORMULARIO ESTA ACTIVADO?

[TheGhost(Z)]

El siguiente codigo me da el ERROR 5 LLAMADA A PROCEDIMEINTOS O ARGUMENTOS NO VALIDOS.

Código [Seleccionar] Expandir

Private Sub Form_Load()
For i = 1 To 3
    Combo1.AddItem i
Next i
Combo1.ListIndex = 1
End Sub

Private Sub Combo1_Click()
If Combo1.Text = 1 Then Text1.SetFocus
If Combo1.Text = 2 Then Text2.SetFocus
If Combo1.Text = 3 Then Text3.SetFocus
End Sub

EL ERROR ES QUE EN EL EVENTO Private Sub Form_Load() HE ASIGNADO Combo1.ListIndex = 1 Y COMO EN EL EVENTO Private Sub Combo1_Click() SE vaya AL FOCO DE LOS TEXT''S. COMO ES LOGICO NO PUEDE IR AL FOCO PORQUE AUN EL FOMULARIO NO ESTA CARGADO. PARA ELLO TENDRIA QUE ESTAR EN EL EVENTO Form_Activate().

COMO PUEDO SABER QUE EL FORMULARIO YA ESTE CARGADO. ASI ASIGNARIA QUE SOLO CUANDO EL FORM YA ESTE CALCULADO CORRA LOAS PROCEDIMEINTOS COMO AQUI...

Código [Seleccionar] Expandir

Private Sub Combo1_Click()
IF ME.ACTIVATE = TRUE THEN
   If Combo1.Text = 1 Then Text1.SetFocus
   If Combo1.Text = 2 Then Text2.SetFocus
   If Combo1.Text = 3 Then Text3.SetFocus
END IF
End Sub


BUENO DE QUE MANERA SE PUEDE HACER DE QUE  IF ME.ACTIVATE = TRUE THEN SE HAGUE REALIDAD. ES DECIR QUE CODIGO SE PONE PARA SABER QUE EL FORMULARIO YA ESTE CARGADO..

[Sancho.Mazorka]

Propiedad Visible

Código (vb) [Seleccionar] Expandir

''''Escritura
Form1.Visible = True
''''Lectura
Msgbox Form1.Visible

PD: Por favor no escribas en mayusculas, es dificultoso leer!

Sancho.Mazorka   

[TheGhost(Z)]

Otra solucion esta en utilziar: If IsFormLoaded = True

Código [Seleccionar] Expandir

Private Sub Combo1_Click()
If IsFormLoaded = True Then
    If Combo1.Text = 1 Then Text1.SetFocus
    If Combo1.Text = 2 Then Text2.SetFocus
    If Combo1.Text = 3 Then Text3.SetFocus
End If
End Sub