Código
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = False End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim numero As Byte Timer1.Enabled = True Randomize() numero = Rnd() * 6 Do While numero > 6 numero = numero - 6 Loop Do While numero < 1 numero = numero + 6 Loop Loop TextBox1.Text = numero End Sub End Class