使用文本框的SetFocus方法可以使文本框获得焦点示例1:点击按钮使文本框获得焦点Private Sub Command1_Click()Text1.SetFocusEnd Sub示例2:窗体加载时使文本框获得焦点Private Sub Form_Load()Text1.SetFocusEnd Sub