Public Class Form1
 
    Dim random As New System.Random
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Label1.Text = random.Next(1, 4)
        Label2.Text = random.Next(1, 4)
        Label3.Text = random.Next(1, 4)
        Label4.Text = random.Next(1, 4)
        Label5.Text = random.Next(1, 4)
 
    End Sub
 
 
End Class