Option Explicit
Dim ini As Integer
Dim texto As String
Dim a As String
Dim lstexto As String
Dim x As Integer
Private Sub Command1_Click()
lstexto = Empty
texto = Text1.Text
For ini = 1 To Len(texto)
x = Int(Rnd * 4) + 1 'esto generara al azar los numeros
'la rutina Int(Rnd * 4)'genera numeros al azar del 0 al 3
'ese 1 es para que los numeros generados al azar sean del 1 al 4
a = Mid(texto, ini, 1)
If Val(x) Mod 2 = 0 Then 'esta funcion es para saber si un numero es par
lstexto = lstexto & UCase(a)
Else
lstexto = lstexto & LCase(a)
End If
Next ini
Text2.Text = lstexto
End Sub
Para mi lo unico que le faltaria es un boton "Copiar" para copiar el resultado (Text2.text) ya que lo he intentado y solo consigo que se copie para "el mismo programa" y no para programas externos. Me explico?