Visual Basic - Logotipo

Hola:
Me gustaria saber como se puede hacer para cambiar el logotipo de mi programa en tiempo de ejecucion. Q control puedo utilizar.
Mi idea es que me permita habrir una carpeta donde tengo una variedad de imagenes y q el usuario pueda elegir cualquielesquiera, y dode pueda tener un boton aceptar y q le apliq al formulario la imagen elegida.

Hice asi, pero este es solo para una imagen especifica y no se puede cambiar, osea elegir otra cualquiera con el programa ejecutado.

frmPrincipal.Picture = LoadPicture(D & "\imagenes\mi_imagen.jpg")

NO SE SI ME EXPLICO. Y SI ME PUEDEN AYUDAR.

DESDE YA GRACIAS.....

Hola.

Componente :
Microsoft Commondialog

controles:
commondialog
commandbutton
picture

CommonDialog1.Filter = "*.jpg;*.gif;*.bmp"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If

Lo otro de dejar una carpeta predefinida y utilizarlos con un FileListBox y un Timer que vaya cambiando la imagen segun un determinado periodo de tiempo,
1000 = 1 segundo.

Espero te sirva.
Saludos.

Hola:
Funciona...si.
pero como se puede hacer q cuando salgo del ejecutable, quede la imagen q cargue.

saludos..

Hola.

Creando un archivo de texto cada vez que la imagen se cambie.

ej.
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
On Error Resume Next
Kill (App.Path & "\cfgimage.mur") ' <--- eliminas el anterior
Open App.Path & "\cfgimage.mur" For Output As #1
Print #1, CommonDialog1.FileName ' ruta completa
Close #1
End If

En el Form_load del formulario va esto:

on error goto noarchivo
Open App.Path & "\cfgimage.mur" For Input As #1
Line Input #1, em1 ' ruta completa
Close #1
Picture1.Picture = LoadPicture(em1)
noarchivo:

Saludos.