Option Strict Off

Public Class Lottery

    Dim randomObject As New Random()
    Dim randomNumber As Integer

    Private Sub genButton_Click(sender As Object, e As EventArgs) Handles genButton.Click

        Dim pick3 As Integer = PickThree()
        Dim pick4 As Integer = Pickfour()
        Dim pick5 As Integer = PickFive()
        Dim pick5Add As Integer = PickFiveAdd()
        Dim pickAddi As Integer = PickBonus()

        pickThreeRes.Text = String.Format(pick3)
        pickFourRes.Text = String.Format(pick4)
        pickFiveRes.Text = String.Format(pick5)
        pickFiveAddRes.Text = String.Format(pick5Add)
        pickAdd.Text = String.Format(pickAddi)

    End Sub

    Function PickThree() As Integer

        For i = 1 To 3
            randomNumber = (randomObject.Next(0, 10))
        Next

        Return randomNumber
    End Function

    Function Pickfour() As Integer

        Dim randomObject As New Random()

        For i = 1 To 4
            randomNumber = (randomObject.Next(0, 10))
        Next

        Return randomNumber
    End Function

    Function PickFive() As Integer

        Dim randomObject As New Random()


        For i = 1 To 5
            randomNumber = (randomObject.Next(1, 40))
        Next

        Return randomNumber
    End Function

    Function PickFiveAdd() As Integer

        Dim randomObject As New Random()


        For i = 1 To 5
            randomNumber = (randomObject.Next(1, 50))
        Next

        Return randomNumber
    End Function

    Function PickBonus() As Integer

        Dim randomObject As New Random()


        For i = 1 To 1
            randomNumber = (randomObject.Next(1, 43))
        Next

        Return randomNumber
    End Function
End Class