Option Explicit
 
Private Sub Command1_Click()
    Dim n               As Byte
    Dim Repetido        As Byte
    Dim Numero(24)      As Byte
    Dim i               As Byte
    Dim Ordenar         As Boolean
    Dim Aux             As Byte
 
'//Generar los numeros aleatorios no repetidos
    Randomize Timer
    For i = 0 To 24
        n = Rnd * 30
        If i = 0 Then
            Numero(i) = n
        Else
            Repetido = i
            Do
                Repetido = Repetido - 1
                If Numero(i) = Numero(Repetido) Then
                    n = Rnd * 30
                    Numero(i) = n
                    Repetido = i
                End If
            Loop Until Repetido = 0
        End If
    Next i
 
'//Ordenar de menor a mayor
    Ordenar = True
    Do While Ordenar = True
        Ordenar = False
        For i = 0 To 23
            If Numero(i + 1) < Numero(i) Then
                Aux = Numero(i)
                Numero(i) = Numero(i + 1)
                Numero(i + 1) = Aux
                Ordenar = True
            End If
        Next i
    Loop
 
'//Cargar la matriz
    For i = 0 To 24
        If i = 0 Or i = 4 Or i = 6 Or i = 8 Or i = 12 Or i = 16 Or i = 18 Or i = 20 Or i = 24 Then
            Label1(i).Caption = Numero(i)
        End If
    Next i
End Sub