Sub Globals
Dim scvImage As ScrollView2D
End Sub
Sub Activity_Create(FirstTime As Boolean)
Dim w = 2304 As Int
Dim h = 1530 As Int
scvImage.Initialize(w, h, "scvImage")
Activity.AddView(scvImage, 0, 0, 100%x, 100%y)
Dim bdw As BitmapDrawable
bdw.Initialize(LoadBitmap(File.DirAssets, "rhonevalley1.png"))
scvImage.Panel.Background = bdw
End Sub