Sub zeigegrafik(xkoord As Int, ykoord As Int, thewidth As Int, theheight As Int, name As String)
' ------------------------------------------------------------------------------------------------------------------------
' Zeigt an x,y an die Grafik <name> an mit den Maßen breite und höhe
' ------------------------------------------------------------------------------------------------------------------------
If imgView1.IsInitialized Then
imgView1.SetLayout(xkoord, ykoord, thewidth, theheight )
Else
Dim imgView1 As ImageView
imgView1.Initialize(bild)
Activity.AddView(imgView1, xkoord, ykoord, thewidth, theheight) 'vars are given to sub
imgView1.Gravity=Gravity.FILL
End If
imgView1.Bitmap = LoadBitmap(File.DirAssets,name)
'Msgbox("Done","")
End Sub