Sub Activity_Create(FirstTime As Boolean)
Dim x, y As Float
Activity.LoadLayout("Layout1")
bmpCompass.Initialize(File.DirAssets,"CircleNova.png")
Imageview1.Initialize("")
Imageview1.Color=Colors.Transparent
Imageview1.Bitmap = bmpCompass
x = 200
y = 200
'Activity.AddView(Imageview1, 200, 200, bmpCompass.Width, bmpCompass.Height)
Activity.AddView(Imageview1, 20, 20, x, y)
csvCompass.Initialize(Imageview1)
RectCompass.Initialize(0, 0, bmpCompass.Width, bmpCompass.Height)
Timer1.Initialize("Timer1",200)
Timer1_Tick
End Sub