Private Sub Form_Load()
    Dim strAnrede() As String
    Dim intZeiger As Long
'-----------------------------
 
    ReDim strAnrede(0 To 10)
 
    strAnrede(0) = " "
    strAnrede(1) = "Frau"
    strAnrede(2) = "Frau Ing"
    strAnrede(3) = "Frau DI"
    strAnrede(4) = "Frau Dr"
    strAnrede(5) = "Frau Mag"
    strAnrede(6) = "Herr"
    strAnrede(7) = "Herr Ing"
    strAnrede(8) = "Herr DI"
    strAnrede(9) = "Herr Dr"
    strAnrede(10) = "Herr Mag"
 
 
  ' PopUp-Menü erstellen
  For intZeiger = 0 To UBound(strAnrede)
    If intZeiger > 0 Then Load mnuAnrede(intZeiger)
    mnuAnrede(intZeiger).Caption = strAnrede(intZeiger)    ' Caption (Menütext)
  Next intZeiger
 
  Me.Text1.Text = " "
 
End Sub
 
Private Sub Text1_Click()
  ' PopUp-Menü anzeigen
  PopupMenu PopUpAnrede
End Sub
 
Private Sub mnuAnrede_Click(Index As Integer)
 
    Text1.Font.Name = mnuAnrede(Index).Caption
    Me.Text1.Text = mnuAnrede(Index).Caption
 
End Sub