Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim minValue As Integer = 1
Dim maxvalue As Integer = 7
Dim random As New Random
Label1.Text = random.Next(minValue, maxvalue + 1).ToString()
Label2.Text = random.Next(minValue, maxvalue + 1).ToString()
Label3.Text = random.Next(minValue, maxvalue + 1).ToString()
End Sub
Dim minValue As Integer = 1
Dim maxvalue As Integer = 7
Dim random As New Random
Label1.Text = random.Next(minValue, maxvalue + 1).ToString()
Label2.Text = random.Next(minValue, maxvalue + 1).ToString()
Label3.Text = random.Next(minValue, maxvalue + 1).ToString()
End Sub