Public Class Form3 Dim numRounds As Integer Dim player1Name As String Dim player2Name As String Public Function getPlayer1Name() Return player1Name End Function Public Function getPlayer2Name() Return player2Name End Function Public Function getNumRounds() Return numRounds End Function Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click numRounds = cmbNumRounds.SelectedIndex numRounds = numRounds + 1 player1Name = CStr(TextBox1.Text) player2Name = CStr(TextBox2.Text) Me.Hide() Form1.Show() Call Form1.setUpForm() End Sub Private Sub btnRules_Click(sender As Object, e As EventArgs) Handles btnRules.Click Dim Karen As String Karen = "Each player chooses how many dice to roll during each turn. " Karen = Karen & " The player gets the sum of all the dots on the dice that s/he rolls, " Karen = Karen & "unless s/he rolls a 1, in which case the player's score " Karen = Karen & "for that turn is 0." MsgBox(Karen) End Sub End Class