Visual Basic - cargar imagenes

Hola bueno encontré este foro y espero que me puedan ayudar:
Tratare de ser lo mas especifica posible:
Tengo un formulario el cual tiene 3 picturebox que so (p1, p2 ,p3) y tiene 3 button la cuales son (b1, b2, b3) y lo tengo conectado al SQL SERVER 2005 a una tabla llamada imagen ahora mi problemita es que no se hacer el llamado que si yo aprieto b1 y después aprieto p1 me cargue la imagen1 o si aprieto b2 y después p2 me cargue la imagen2 y si ya tengo la imagen cargada ejemplo la imagen 1 que pueda apretar b1 + imagen1 y me cargue imagen 11 por favor si puede ayudarme a hacerlo o aconséjame hacerlo de otra forma con guía por supuesto se lo agradecería un monto

ve al enlace por favor
bye

mira la verdad eso no tiene nada que ver eso pero gracia de toda forma, resulta que me dieron esto cofigo pero la verdad no entiendo por ke no me funciona es decir lo picturebox ni me pesca si me podrias ayudar esto son lo codigo

Dim NombreBotonPreviamentePresionado As String


Sub CargarImagen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click, Button7.Click


Select Case DirectCast(sender, Button).Name

Case "P1"

Select Case NombreBotonPreviamentePresionado

Case "button1"
Me.P1.Image = Image.FromFile("../../Resources/caries/1.png")

Case "button2"

Me.P1.Image = Image.FromFile("../../Resources/tapadura/1.png")

Case "button3"
' Me.P1.Image = Image.FromFile("../../Resources/tratamiento/1.png")

Case "button4"

Me.P1.Image = Image.FromFile("../../Resources/exodoncia/1.png")

Case "button5"
Me.P1.Image = Image.FromFile("../../Resources/ausente/1.png")

Case "button6"

Me.P1.Image = Image.FromFile("../../Resources/Corona/1.png")

Case "button7"
Me.P1.Image = Image.FromFile("../../Resources/Puente/1.png")


Case "P2"

Select Case NombreBotonPreviamentePresionado
Case "button1"
Me.P2.Image = Image.FromFile("../../Resources/caries/2.png")

Case "button2"

Me.P2.Image = Image.FromFile("../../Resources/tapadura/2.png")

Case "button3"
' Me.P2.Image = Image.FromFile("../../Resources/tratamiento/2.png")

Case "button4"

Me.P2.Image = Image.FromFile("../../Resources/exodoncia/2.png")

Case "button5"
Me.P2.Image = Image.FromFile("../../Resources/ausente/2.png")

Case "button6"

Me.P2.Image = Image.FromFile("../../Resources/Corona/2.png")

Case "button7"
Me.P2.Image = Image.FromFile("../../Resources/Puente/2.png")

End Select

End Select

End Select

NombreBotonPreviamentePresionado = DirectCast(sender, Button).Name

este codigo que te dieron es para visual.net no visual basic 6.0 por eso no te funciona en visual

con esto podras ver las imagenes
necesitas un filelistbox, un dirlistbox,un drivelistbox,un picturebox, un image
insertalos estos controles e insertas este codigo

en image1 pon en stretch a true

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Error GoTo fin
If Len(Dir1) = 3 Then
archivo = Dir1.Path & File1
Picture1.Picture = LoadPicture(archivo)
Image1.Picture = LoadPicture(archivo)
Else
archivo = Dir1.Path & "/" & File1
Picture1.Picture = LoadPicture(archivo)
Image1.Picture = LoadPicture(archivo)
End If
Exit Sub
fin:
MsgBox "Este archivo no es de imagen", 32, "Mensaje"
End Sub