テキストを全選択状態にする（Vb6.0）

' Text1 のテキストを全選択状態にする
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)


If Not mIsMouseDown Then