Dim iNum As Integer
Public Sub SelectedNumber(strTemp As String)
CallByName(Me, strTemp, CallType.Method)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
CheckBox1.BackColor = System.Drawing.Color.Blue
(call randomise sub and store number in iNum)
SelectedNumbers("sub" & cstr(iNum))
End Sub
Public Sub Sub1()
CheckBox1.ForeColor=System.Drawing.Color.Red
CheckResult
End Sub
(Repeat this last sub for all 9 numbers.)
Private Sub CheckResult()
Select Case True
Case CheckBox1.ForeColor =System.Drawing.Color.Red
Select Case True
Case CheckBox2.ForeColor=System.Drawing.Color.Red
Select Case True
Case CheckBox3.ForeColor =System.Drawing.Color.Red
MessageBox.Show("A Winner")
Case CheckBox4.ForeColor =System.Drawing.Color.Red