Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click Dim sport(6) As String sport(0) = "c" sport(1) = "r" sport(2) = "i" sport(3) = "c" sport(4) = "k" sport(5) = "e" sport(6) = "t" Dim Guess As String Guess = txtBoxGuess.Text If sport.Contains = Guess Then MsgBox("Hooray!") Else MsgBox("Boo1") End If End Sub End Class
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.