'Numeros y letras aleatorias by BenRu


Private Sub Command1_Click()
    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
End Sub

Private Sub Command2_Click()
Dim AlgorritmoLetra As Integer
Dim AlgorritmoLetra2 As String

    AlgorritmoLetra = Int((4 * Rnd) + 1) 'Cambia el 4 por el numero de Case que vallas a poner
    
    Select Case AlgorritmoLetra
        Case 1
            AlgorritmoLetra2 = "a"
        Case 2
            AlgorritmoLetra2 = "b"
        Case 3
            AlgorritmoLetra2 = "c"
        Case 4
            AlgorritmoLetra2 = "d"
        End Select
Text2.Text = AlgorritmoLetra2
End Sub

Private Sub Form_Load()
Randomize
End Sub

If Sistema.Operativo="WinXp" then
variable1="ABCD"
end if
End

Private Sub Form_Load()
On Error GoTo error
AppActivate "Mis Documentos"
Timer1.Enabled = False
MsgBox ("Abierto")
End
error:
End Sub