VB .NET - Gerador de Números de Laterias

Public Class frmGeradorNumero

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

        Me.Text = "Escolha Rápida" & " v" & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor

        If Today.DayOfWeek = DayOfWeek.Saturday Then

            Label2.Text = "Você se lembrou de jogar hoje na loteria?"

        Else

            Label2.Text = "Confira os resultados anteriores da loteria em www1.caixa.gov.br"

        End If

        If Today.DayOfWeek = DayOfWeek.Saturday Then

            Label2.Text = "Você se lembrou de jogar hoje na loteria?"

        End If

        Label3.Text = Today

        ToolStripStatusLabel1.Text = My.User.Name & " está logado."

    End Sub

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

        Randomize()

        Dim value0 As Integer

        Dim value1 As Integer

        Dim value2 As Integer

        Dim value3 As Integer

        Dim value4 As Integer

        Dim value5 As Integer

        Dim value6 As Integer

        value0 = (45 * Rnd() + 1)

        value1 = (45 * Rnd() + 1)

        value2 = (45 * Rnd() + 1)

        value3 = (45 * Rnd() + 1)

        value4 = (45 * Rnd() + 1)

        value5 = (45 * Rnd() + 1)

        value6 = (45 * Rnd() + 1)

        TextBox1.Text = value0

        TextBox2.Text = value1

        TextBox3.Text = value2

        TextBox4.Text = value3

        TextBox5.Text = value4

        TextBox6.Text = value5

        TextBox7.Text = value6

        TextBox7.BackColor = Color.Gold

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.Close()

    End Sub

End Class

 Espero que gostem... Abraços e até a próxima!