Private Sub Command1_Click()Text1.SetFocusEnd Sub
sub botton_click() text1.setfocusend sub记不是太清,大概是这个意思吧