Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button2.Enabled = False Button3.Enabled = False Button4.Enabled = False Button5.Enabled = False Label7.Enabled = False End Sub Private Sub NumericUpDown3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click NumericUpDown1.Text = NumericUpDown1.Text + 1 Dim A As Integer Dim B As Integer A = NumericUpDown1.Text B = NumericUpDown3.Text If A > B Then Label7.Text = TextBox1.Text & " Leads By " & A - B & " Goals !" ElseIf B > A Then Label7.Text = TextBox2.Text & " Leads By " & B - A & " Goals !" Else : Label7.Text = "Match Is Tied At " & A & " Goals !" End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label4.Text = TextBox1.Text Label5.Text = TextBox2.Text Button2.Enabled = True Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True NumericUpDown1.Text = 0 NumericUpDown3.Text = 0 NumericUpDown3.Text = 0 End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click NumericUpDown3.Text = NumericUpDown3.Text + 1 Dim A As Integer Dim B As Integer A = NumericUpDown1.Text B = NumericUpDown3.Text If A > B Then Label7.Text = TextBox1.Text & " Leads By " & A - B & " Goals !" ElseIf B > A Then Label7.Text = TextBox2.Text & " Leads By " & B - A & " Goals !" Else : Label7.Text = "Match Is Tied At " & A & " Goals !" End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click NumericUpDown2.Text = NumericUpDown2.Text + 1 End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim A As Integer Dim B As Integer A = NumericUpDown1.Text B = NumericUpDown3.Text If A > B Then MsgBox("Team " & TextBox1.Text & " Wins !") ElseIf B > A Then MsgBox("Team " & TextBox2.Text & " Wins !") Else : MsgBox("Match Is Tied") End If End Sub Private Sub NumericUpDown1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub End Class