在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（   ）。

A:Private Sub  Text1_GotFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub
B:Private Sub  Text1_LotFocus( ) : Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub
C:Private Sub  Text1_Change( ) :  Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub
D:Private Sub  Text1_SetFocus( ) :Text1.SelStart=0 : Text1.SelLength=Len(Text1.text) : End Sub