Private Sub BTGallery_Click
CC.Show("image/*", "Bitte Bild wählen:")
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success = True Then
zimvImage.SetBitmap(LoadBitmap(Dir,FileName))
TabHost1.CurrentTab=2
Else
If LastException.IsInitialized Then
xui.Msgbox2Async((LastException,"501: Programmfehler!", "OK", "", "", Main.imgError)
Else
xui.MsgboxAsync("Keine Dateigewählt", "501: Programmfehler!")
End If
End If
End Sub