Lucky Draw

I have created a lucky program that used control arrays. This program consists of a 3x3 matrix, which means there are 9 command buttons in a grid. One of the random buttons contains a prize, when you click on it displays the word "prize" in the caption. If you don't strike the prize , the word "The Prize is here " will appear on the command button that contains the prize.

The Code

Private Sub Command1_Click(Index As Integer)
Dim n As Integer
For n = 0 To 8
Command1(n).Caption = ""
Next
Randomize Timer
n = Int(Rnd * 9)
If Index = n Then
Command1(n).Caption = "Prize"
Else: Command1(n).Caption = "The Prize is here"
End If

End Sub

The Interface:

[Back to Sample VB Programs]