.
.
.
.
opCloseCtrl.SetBackgroundImage(opCloseUpBMP)
opContainer.AddView(opCloseCtrl, 45%x, 22%y, 10%x, 45%y)
opCloseCtrl.Visible = True
opContainer.Visible = False
game.Initialize(gv, pad, lblFPS, lblAngle, lblScore, lblDogsRemain, lblPoopRemain, lblCurrLvl, lblShovelsLeft)
Activity.AddMenuItem("Options", "mnuOptions")
End Sub
Sub mnuOptions_Click
opContainer.Visible = True
End Sub
Sub opCloseCtrl_Click
opCloseCtrl.SetBackgroundImage(opCloseDownBMP)
opContainer.Visible = False
End Sub