Public Class Form1

    Private Sub HelpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpBtn.Click
        If Me.Width = 163 Then
            For counter = 163 To 460
                Me.Width = counter
            Next
        Else
            For counter = 460 To 163 Step -1
                Me.Width = counter
            Next
        End If
        lblHelp.Left = 215
        lblHelp.Visible = True
        Scorelbl.Visible = False
    End Sub

    Private Sub ExitBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBtn.Click
        End
    End Sub

    Private Sub DivBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DivBtn.Click

        If Me.Width = 163 Then
            For counter = 163 To 460
                Me.Width = counter
            Next
        Else
            For counter = 460 To 163 Step -1
                Me.Width = counter
            Next
        End If
        Scorelbl.Left = 215
        Scorelbl.Visible = True
        lblHelp.Visible = False



    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
Private Sub MultBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MultBtn.Click
    If Me.Width = 163 Then
        For counter = 163 To 460
            Me.Width = counter
        Next
    Else
        For counter = 460 To 163 Step -1
            Me.Width = counter
        Next
    End If
    Scorelbl.Left = 215
    Scorelbl.Visible = True
    lblHelp.Visible = False
End Sub
        Private Sub SubBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubBtn.Click
            If Me.Width = 163 Then
                For counter = 163 To 460
                    Me.Width = counter
                Next
            Else
                For counter = 460 To 163 Step -1
                    Me.Width = counter
                Next
            End If
            Scorelbl.Left = 215
            Scorelbl.Visible = True
            lblHelp.Visible = False
        End Sub
        Private Sub AddBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBtn.Click
            If Me.Width = 163 Then
                For counter = 163 To 460
                    Me.Width = counter
                Next
            Else
                For counter = 460 To 163 Step -1
                    Me.Width = counter
                Next
            End If
            Scorelbl.Left = 215
            Scorelbl.Visible = True
            lblHelp.Visible = False
            Num1lbl.Left = 195
            Num2lbl.Left = 300
            Num1lbl.Visible = True
            Num2lbl.Visible = True


        End Sub

    Private Sub txtTitle_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Scorelbl_Click(sender As System.Object, e As System.EventArgs) Handles Scorelbl.Click

    End Sub

    Private Sub lblHelp_Click(sender As System.Object, e As System.EventArgs) Handles lblHelp.Click

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles calcbtn.Click

    End Sub