Need a wheel control

Sub Globals
   Dim imgWheel As ImageView
   Dim labelPlus, labelMinus, labelResult As Label
   Dim intResult As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.LoadLayout("WheelControl.bal")
End Sub

Sub labelPlus_Click
   intResult = intResult + 1
   labelResult.Text = intResult
End Sub

Sub labelMinus_Click
   intResult = intResult - 1
   labelResult.Text = intResult
End Sub