Sub directionalgyro_turn
IVdg1.Visible = True
IVdg2.visible = True
IVdg3.Visible = True
lblheading.Visible = True
lblheading.Text = heading & " °"
lblheading.TextColor = Colors.ARGB (255,36,85,255)
IVdg1.Bitmap = LoadBitmap(File.DirAssets, "dgca1.png")
IVdg2.Bitmap = LoadBitmap(File.DirAssets, "dgzahlen.png")
IVdg3.Bitmap = LoadBitmap(File.DirAssets, "dgplane.png")
Dim csvDg As Canvas
Dim bmpDg As Bitmap
Dim rectDg As Rect
bmpDg.Initialize (File.DirAssets , "dgzahlen.png")
IVdg2.Initialize ("")
IVdg2.Color = Colors.Transparent
csvDg.Initialize (IVdg2)
rectDg.Initialize (0,0,bmpDg.Width ,bmpDg.Height)
csvDg.DrawBitmapRotated (bmpDg,rectDg,rectDg,heading)
IVdg2.Invalidate2 (rectDg)
End Sub