Private Sub picshell_click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles picshell1.Click, picshell2.Click, picshell3.Click

'Determine which shell was clicked by user

Dim picshellclicked As PictureBox = sender
Dim intshellclicked As Integer = Val(picshellclicked.Tag)

'pick the shell that hides the pearl
Randomize()
Dim intshellwithpearl As Integer = Int(3 * Rnd()) + 1

'show the pearl

Select Case intshellwithpearl
Case 1
Me.picpearl1.Visible = True
Case 2
Me.picpearl2.Visible = True
Case 3
Me.picpearl3.Visible = True

End Select

'display message to player
If intshellclicked = intshellwithpearl Then
MessageBox.Show(" You won!! ")
Else
MessageBox.Show(" Sorry you lose! ")
End If

'hide pearl again
Select Case intshellwithpearl
Case 1
Me.picpearl1.Visible = False
Case 2
Me.picpearl2.Visible = False
Case 3
Me.picpearl3.Visible = False

End Select

End Sub
End Class




DOES THAT LOOK FUN!?

not.

omg.

i didnt wanna go to school today