German CustomDialog mit 3 Auswahlmöglichkeiten

ret = cd.Show("Wähle aus 3 Möglichkeiten","Option 1","Option 2", "Option 3",Bild8)
If ret = DialogResponse.POSITIVE Then
   do1
Else if ret = DialogResponse.CANCEL Then   
   do2       
Else If ret = DialogResponse.NEGATIVE Then
   do3
END IF

'MsgBox einblenden
Dim icon As B4XBitmap = XUI.LoadBitmapResize(File.DirAssets, "info.png", 60dip, 60dip, True)
Dim SF As Object = XUI.Msgbox2Async("Erläuterungstext", "TOPIC", "Auswahl1", "Auswahl2", "Auswahl3", icon)
Wait For (SF) Msgbox_Result (Result As Int)
If Result = XUI.DialogResponse_Negative Then
    Do1
End If
If Result = XUI.DialogResponse_Positive Then
    Do2
End If
If Result = XUI.DialogResponse_Cancel Then
    Do3
End If

    Dim icon As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, "info.png", 60dip, 60dip, True)
    Msgbox2Async("Erläuterungstext", "TOPIC", "Auswahl1", "Auswahl2", "Auswahl3", icon, False)
    Wait For Msgbox_Result (Result As Int)
    If Result = xui.DialogResponse_Negative Then
        Do1
    else If Result = xui.DialogResponse_Positive Then
        Do2
    else If Result = xui.DialogResponse_Cancel Then
        Do3
    End If