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

        'shows the splash screen
        frmSplash.Show()
    End Sub

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Dim iexit As Integer

        iexit = MessageBox.Show("Are you sure you wish to exit?", "Confirm Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

        If iexit = DialogResult.Yes Then
            End
        End If
    End Sub

    Private Sub cmdClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClear.Click
        Dim iclear As Integer

        iclear = MessageBox.Show("Are you sure you want to clear?", "Confirm Clear", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If iclear = DialogResult.Yes Then
            lstNumbers.Items.Clear()
        End If
    End Sub

    Private Sub cmdNum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNum.Click
        Dim inum As Integer
        Dim count As Integer

        inum = InputBox("Please enter the number of numbers you will be using: ")
        lstNumbers.Items.Add("You've chosen to enter " & inum & " numbers")

        ReDim numarray(inum)

        For count = 1 To inum
            numarray(inum) = InputBox("Please Enter Your Numbers:")
            lstNumbers.Items.Add("You've Chosen The Number " & numarray(inum))
        Next

    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim iexit As Integer

        iexit = MessageBox.Show("Are you sure you wish to exit?", "Confirm Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

        If iexit = DialogResult.Yes Then
            End
        End If
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim iclear As Integer

        iclear = MessageBox.Show("Are you sure you want to clear?", "Confirm Clear", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If iclear = DialogResult.Yes Then
            lstNumbers.Items.Clear()
        End If
    End Sub

      Private Sub cmdDisplayAv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDisplayAv.Click
        Dim total As Integer
        Dim average As Integer
        Dim numarray1 As Integer
        Dim count As Integer

        For count = 0 To (numarray.Length - 1)
            numarray(inum) = numarray1
            total = inum + numarray(inum)
        Next



        average = total / inum

        lstNumbers.Items.Add("the average of the numbers is: " & average)
        lstNumbers.Items.Add("The sum of the numbers is: " & total)

        average = total / numarray(inum)
    End Sub
End Class