Cita:
Iniciado por pkj 
Perdon. Solo tienes que cortar la primera declarción de tu button1 y pegarla en lugar de la linea del Private Sub Command1.
hola pkj, no entiendo mucho, como seria el codigo...
ahora solo tengo 2 errores.
aqui te dejo el codigo y la imagen de los 2 errores que me quedan :S
http://img258.imageshack.us/img258/7/captura1.jpg
Código:
Public Class Form1
Option Explicit
Private Function Aleatorio(ByVal Minimo As Long, ByVal Maximo As Long) As Long
Aleatorio = CLng((Minimo - Maximo) * Rnd() + Maximo)
End Function
Private Sub Button_Click()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Aleatorio(1000, 9999)
TextBox2.Text = Aleatorio(1000, 9999)
TextBox3.Text = Aleatorio(1000, 9999)
TextBox4.Text = Aleatorio(100000, 999999)
TextBox4.Text = TextBox4.Text & Aleatorio(10000, 99999)
End Sub
Private Sub Form_Load()
Randomize(Timer1) 'Llamar a Randomize una única vez
End Sub
End Class