SetFocus意思是：設定焦點。

用法說明如下，例如：

Private Sub Command1_Click()

Text2.Text = Text1.Text

End Sub

但是改為：

Private Sub Command1_Click()

Text2.Text = Text1.Text

Text1.SetFocus

End Sub

執行後，焦點就在text 1 上了。

這就是SetFocus的用法。

擴充套件資料：

setfocus與getfocus的不同：

setfocus指屬性；而getfocus指事件。

例子：

private sub command1_click()

if(text5.text=text6.text) then

text7.setfocus

end if

end sub

private sub text7_getfocus()

text7.text=""

end sub