在窗体的FORM_LOAD过程中执行text1.setfocus,出现错误提示 "无效的过程调用或参数" 是怎么回事，如何避免

[himetric]

Private Sub Form_Load()
Option1.value = True
End Sub

Private Sub Option1_Click()

Text1.Visible = True
Text1.SetFocus

End sub

执行到Text1.SetFocus这一句时提示：无效的过程调用或参数，请问（1）是什么原因， （2）如何添加一个判断，当处在窗体过载过程中或窗体未显示的状态时，不执行Text1.SetFocus这个语句。谢谢大家 ！

[himetric]

引用 1 楼 Tiger_Zhao 的回复:

Form_Load 是初始化界面，初始化之后才会显示，没显示就没焦点。

Private Sub Form_Activate()
    Static bInitilized As Boolean
    
    If Not bInitilized Then
        bInitilized = True
        Option1.Value = True
    End If
End Sub

Private Sub Option1_Click()
    
    Text1.Visible = True
    Text1.SetFocus

End Sub

非常感谢

[Tiger_Zhao]

Form_Load 是初始化界面，初始化之后才会显示，没显示就没焦点。

Private Sub Form_Activate()
    Static bInitilized As Boolean
    
    If Not bInitilized Then
        bInitilized = True
        Option1.Value = True
    End If
End Sub

Private Sub Option1_Click()
    
    Text1.Visible = True
    Text1.SetFocus

End Sub