Option Explicit
Dim bWasMouseclick As Boolean
 
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) _
  As Integer
Private Const VK_LBUTTON = &H1
 
Private Sub sevText1_GotFocus()
  If bWasMouseclick Then Exit Sub
 
  If GetAsyncKeyState(VK_LBUTTON) And 1 = 1 Then Exit Sub
  sevText1.DroppedDown = True
End Sub
 
Private Sub sevText1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  bWasMouseclick = True
End Sub
 
Private Sub sevText1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  bWasMouseclick = False
  sevText1.DroppedDown = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de