Sub InitDialog_Karte
Spinner_Karte.Initialize("")
Spinner_Karte.AddAll(Array As String("Karte", "Externe Anwendung", "Google Online Navigation"))
CustomDialogKarte.AddView(Spinner_Karte, 80%x,50dip)
End Sub
Sub DialogKarte_Click
Spinner_Karte.SelectedIndex=Spinner_Karte.IndexOf(Speicher_Karte.Kartensoftware)
If CustomDialogKarte.Show("Kartensoftware festlegen","OK","Abbrechen","", Null)=DialogResponse.POSITIVE Then
Speicher_Karte.Kartensoftware=Spinner_Karte.SelectedItem
End If
End Sub