Public Class Form1
Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
If txtName.Text = “” Or txtPass.Text = “” Then
MsgBox(“Please enter your user name!”)
Else
Me.Hide()
Form2.Show()
End If
Form2.Text = “welcome ” & ” ” & Me.txtName.Text & ” ” & ” to whats the word!”
Form2.lblWelcome.Text = Me.txtName.Text & ” ” & “Get ready to test your niddle-skills! Press Play to begin the game!”
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
Advertisement
