Private Sub txtSuchbegriff_DropDown(bCancel As Boolean)
    bCancel = True
  ' sevPopUpMenu-Objekt
  Set oPopUp = New sevPopUp.PopUp
 
  Dim strLeerzeichen as string
  Dim A As String
  lblPopupMenueEintrag.Caption = "         Alle Laufwerke" '(Das Labelfeld wird 
  ' z.B. mit dem 1. Eintrag gefüllt, die Anfangs-Leerzeichen dienen als 
  ' Füllzeichen für den rechten PopUp-Balken 
  strLeerzeichen = " "
 
  Do
    lblPopupMenueEintrag.Caption = lblPopupMenueEintrag.Caption & strLeerzeichen
    A = strLeerzeichen & A
  Loop Until lblPopupMenueEintrag.Width >= txtSuchbegriff.Width
 
  With oPopUp
    ' Menü erstellen
    .Clear
    .AddItem "Alle Laufwerke" & Mid(A, 1, Len(A) - 6), "mnuAlleLaufwerke"
    .
    .
  end with
 
 
end sub