Ejemplo generando numeros aleatorios en Visual studio 2010

En este ejemplo de vb.net crearemos números aleatorios para hacer un juego de adivinanza en el cual deberá adivinar un numero del 1 al 100.

Diseño:

básicamente solo se ocupara un botón, un texboxt y un label el cual de preferencia podrían ponerlo invisible.
Aquí el código:

Public Class Form1

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Variable que genera los numeros aleatorios
        Dim Random As New Random()
        'Asignando numero
        Label1.Text = Random.Next(0, 100)
        'Comparando
        If TextBox1.Text = Label1.Text Then
            MsgBox("Correcto as adivinado")
            Label1.Visible = True
        Else
            MsgBox("Incorrecto el numero aleatorio era: " + Label1.Text)

        End If


    End Sub
End Class

                                                           

vb.net