Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
private bolBoxAClickedFirst as boolean
private sub boxA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) handles boxA.Click
messagebox.show("I was clicked first (I being BoxA)")
bolboxaClickedfirst = true
end sub
private sub boxB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) handles boxB.Click
messagebox.show("Nope, I was clicked first (I being BoxB)")
bolboxBClickedfirst = false
end sub
private sub someothersub()
if bolboxAclickedfirst then
messagebox.show("You clicked BoxA first")
else
messagebox.show("Nope, you clickes BoxB first, don't ask me why, I told you not to.")
endif
end sub
Public ClickFirst As Boolean = False
Public FirstList As String = ""
'==================================================
Private Sub BoxA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BoxA.Click
If ClickFirst = False Then
ClickFirst = True
FirstList = "BoxA"
MessageBox.Show("Box A cliked first")
ElseIf FirstList = "BoxA" Then
MessageBox.Show("Box A cliked first")
Else
MessageBox.Show("Box B cliked first")
End If
End Sub
'=====================================================
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
ClickFirst = False
FirstList = ""
End Sub
'=====================================================
Private Sub BoxB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BoxB.Click
If ClickFirst = False Then
ClickFirst = True
FirstList = "BoxB"
MessageBox.Show("Box B cliked first")
ElseIf FirstList = "BoxB" Then
MessageBox.Show("Box B cliked first")
Else
MessageBox.Show("Box A cliked first")
End If
End Sub