Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm7Karten")
'Hindergrundbild laden
Dim bmp As Bitmap
Dim bmpExt As BitmapExtended
bmpExt.Initialize("")
bmp=bmpExt.rotateBitmap(LoadBitmapSample(File.DirAssets, Main.strOldBackground & ".jpg",Activity.Width,Activity.Height),90)
Activity.SetBackgroundImage(bmp)