für das folgende Beispiel erstellst Du mit dem Menü-Editor ein Menü. Caption: Schriftarten, Name: mnuSchrift. Unter diesem Menü erstellst Du ein weiteres. Caption: bleibt hier leer, also kein Eintrag; Name: schrift, Index: 0. Anschließend fügst Du den folgenden Code in das Form_Load-Ereignis:

Private Sub Form_Load()
    Dim i As Long
    For i = 0 To Screen.FontCount - 1
        If i <> 0 Then Load schrift(i)
        schrift(i).Caption = Screen.Fonts(i)
        If i > 20 Then Exit For
    Next i
End Sub

Damit werden zur Laufzeit 20 Schriftarten, die im System vorhanden sind, im Menü angezeigt. Du kannst etwas rumexperimentieren: Wenn Du in der Zeile "If i > 20 Then Exit For" die Zahl abänderst erscheinen entsprechend mehr oder weniger Schriften.

Ich hoffe, dass Dir dieses Beispiel weiterhilft.

Cu
Moni