Private Sub Command1_Click()
    Dim MAY As Integer 'Num Aleatorio Letras MAYUSCULAS
    Dim Num As Integer 'Num Aleatorio Numeros 0-9
    Dim LON As Integer 'Letra O Numero
    Dim i As Integer 'Control De Bucle
    Dim j As Integer 'Control De Bucle
    Dim Clave As String 'Clave Completa XXXXX-XXXXX-XXXXX-XXXXX-XXXXX
    For i = 1 To 5
        For j = 1 To 5
            Randomize
            LON = Rnd * 1
            If LON = 0 Then 'Si Es Verdadero Se Genera Letra MAYUSCULA
                Randomize
                MAY = Rnd * 24
                MAY = MAY + 65
                If j = 5 And i < 5 Then
                    Clave = Clave + Chr$(MAY) + "-"
                Else
                    Clave = Clave + Chr$(MAY)
                End If
            Else 'De lo contrario se genera un numero de 0 - 9
                Randomize
                Num = Rnd * 8
                Num = Num + 49
                If j = 5 And i < 5 Then
                    Clave = Clave + Chr$(Num) + "-"
                Else
                    Clave = Clave + Chr$(Num)
                End If
            End If
        Next j
    Next i
    MsgBox Clave
End Sub

Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags   As Long, ByVal dwReserved As Long) As Long
'Constantes.
Const reiniciar = 2
Dim HoraR as string
Private Sub Form_Load()
    timer.interval = 1000
    timer.enabled = true
    HoraR = "15:00:00" ' Este es la hora en que se reinicia.
End Sub
Private Sub Timer1_Timer()
     if Time = HoraR then
         ExitWindowsEx(reiniciar, 0)
     end if
End Sub
'Agregar un timer al formulario

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
If cal < 6 Then
 Label2.ForeColor = RGB(255, 0, 0)
 Label2.Caption = "REPROBADO"
 Else
 Label2.ForeColor = RGB(0, 0, 255)
 Label2.Caption = "APROBADO"
 End If
End Sub
 'esto no debe de ir ahi sino en el load...
Private Sub Label3_Click()
 Label3.Caption = Trim((Nom) & " Usted fue :")
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
Label3.Caption = Trim((Nom) & " Usted fue :")
If cal < 6 Then
 Label2.ForeColor = RGB(255, 0, 0)
 Label2.Caption = "REPROBADO"
 Else
 Label2.ForeColor = RGB(0, 0, 255)
 Label2.Caption = "APROBADO"
 End If
End Sub