Dim oDialog1 AS Object
Dim oForm As Object
Sub StartDialog1
oForm = DialogLibraries.Standard.Martin
oDialog1 = CreateUnoDialog( oForm )
oDialog1.execute
end sub
Sub d_klick
inhalt = oDialog1.GetControl("ListBox1")
Select Case inhalt.selectedItem
Case "Eintrag1"
erster
Case "Eintrag2"
zweiter
Case "Eintrag3"
dritter
End Select
End Sub
Sub erster
Msgbox "Erster"
End Sub
Sub zweiter
Msgbox "Zweiter"
End sub
Sub dritter
Msgbox "Dritter"
End Sub
Du mußt das Makro d_klick dem Ereignis "beim Auslösen" der Listbox zuweisen und diese muß zumindest die drei Texteinträge haben die in der Select-Case-Schleife abgefragt werden.