Sub btn_Click
Dim btn As Button = Sender
' Increment to next state and limit to number of states
btn.tag = btn.Tag + 1
If btn.Tag > 4 Then btn.Tag = 0
btnUpdate(btn, btn.Tag)
End Sub
Sub btn_LongClick
Dim btn As Button = Sender
' Reset to initial state on long click
btn.Tag = 0
btnUpdate(btn, btn.Tag)
End Sub
Sub btnUpdate(btn As Button, btnState As Int)
' 0=Every direction, 1=Up, 2=Right, 3=Down, 4=Left
btn.SetBackgroundImage(LoadBitmapSample(File.DirAssets, btnState & ".png", 50, 50))
End Sub