Visual Basic - Algo mas sencillo

Algo mas facil que mi pregunta anterior.

Guardo en el text2 la ruta de una imagen (la ruta se guarda en una base de datos) y al cargar el formulario se muestra en ese text2.

Necesito que al cargar el form, se muestre en el picture1 la imagen de ese archivo.

He probado esto:

Private Sub Form_Load()

Dim a As String
Picture1.Picture = LoadPicture(a)
a = Text2.Text ' Dentro de este text esta grabada la ruta del archivo.jpg

End Sub

No me da ningu error, pero no me funciona, no carga la imagen.

¿Solución?

Gracias.

Tienes alreves las instrucciones. Primero carga la variable "a" y despues carga el Picture ...

Igual podrias solo usar esto ->> Picture1.Picture = LoadPicture(Text2.Text)

'''''''''

Private Sub Form_Load()

Dim a As String

a = Text2.Text ' Dentro de este text esta grabada la ruta del archivo.jpg
Picture1.Picture = LoadPicture(a)

End Sub

Me dice que no ha encontrado el archivo text2.text

sigo igual

si cargo el formulario sin la sentencia anterior y luego incluyo un boton que al pulsarle, lo haga:

Dim a As String
a = Text2.Text
Picture1.Picture = LoadPicture(a)

Funcionaaaaaaaaaaaaaaaaa.

Pero claro, a mi me interesa que funcione éste código al arrancar el formulario. Si le incluyo ésta sentencia me dice que no encuentra el archivo.

¿sería la clave incluir en el form_load () que se ejecute el boton command1?

No lo se, ¿como se haría? me refiero ejecutar el boton desde el form_load sin necesidad de pulsarlo.

Ya viste que este código es correcto, entonces tienes dos opciones:
1.- Si lo haces en el Load asegúrate de que tu control Picture tenga la propiedad AutoRedraw como verdadero (porque te puedo apostar que no lo tienes así).
o
2.- Hazlo en el Activate, en vez del Load

NOOOOOOOOOOOOOOOO

Tus instrucciones estan mal!, seguro no estas asignando la ruta a tu textbox.

Por Ejm:

'... tus conexiones y todo de la bd
me.text2.text = rs(2) ' imaginemos que aqui asignas la ruta de la imagen al textbox

Dim a As String
a = Text2.Text
Picture1.Picture = LoadPicture(a)

Y nada mas, esto debe funcionar, claro si tus instrucciones siguen un ORDEN LOGICO....

EN todo caso, si tienes problemas, con esto provocas el evento de un control

Private Sub Command1_Click()
MsgBox "PROGRAMA CON ORDEN LOGICO!"
End Sub

Private Sub Form_Load()
Command1_Click
End Sub