Option Explicit
 
Private Sub Form_Load()
  Dim i As Long
  With sevText1
    .Style = rsDropDownList
    For i = 1 To 100
      .AddItem "Eintrag " & CStr(i)
    Next i
  End With
End Sub
 
Private Sub sevText1_Change()
  Debug.Print "Change"
End Sub
 
Private Sub sevText1_Click()
  Debug.Print "Click"
End Sub
 
Private Sub sevText1_Closed()
  Debug.Print "Closed"
End Sub
 
Private Sub sevText1_GotFocus()
  Debug.Print "GotFocus"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de