Controles necesarios:
1 Boton
1 TextBox
Código para generar letras (explicado)
Private Function GenerarCadena(ByVal numeroCaracteres As Integer) As String
' Dimensionamos un array para almacenar tanto las
' letras mayúsculas como minúsculas (52 letras).
'
Dim letras(51) As String
' Rellenamos el array.
'
Dim n As Integer
For item As Int32 = 65 To 90
letras(n) = Chr(item)
letras(n + 1) = letras(n).ToLower
n += 2
Next
Dim cadenaAleatoria As String = String.Empty
' Iniciamos el generador de números aleatorios
'
Dim rnd As New Random(DateTime.Now.Millisecond)
For n = 0 To numeroCaracteres
Dim numero As Integer = rnd.Next(0, 51)
cadenaAleatoria &= letras(numero)
Next
Return cadenaAleatoria
End Function
En el boton ponemos el siguiente codigo:
TextBox1.Text = GenerarCadena(24)
Vamos a explicar este ultimo codigo..
TextBox1.Text = GenerarCadena(24)
24 es la cantidad de números y letras aleatorias que queremos generar si queremos generar solo 3 le ponemos 4 siempre sumando un numero mas al que queremos.