Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.SetFocus End Sub