Option Explicit
Private bMouse As Boolean
Private Sub Option1_GotFocus()
  If Not bMouse Then Text1.SetFocus
End Sub
 
Private Sub Option1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  bMouse = True
End Sub
 
Private Sub Option1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  bMouse = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de