Dim Ansicht as GameView
Dim Yellow as BitmapData
Dim timer1 as timer
If FirstTime Then
Yellow.Bitmap = LoadBitmap(File.DirAssets, "yellow.gif")
Yellow.DestRect.Initialize(100dip,100dip,100dip,100dip)
timer1.Initialize("Timer2",10)
End If
Ansicht.Initialize("Ansicht")
Activity.AddView(Ansicht,0,0,1000dip,1000dip)
Ansicht.BitmapsData.Add(Gelb)
Ansicht.Invalidate