Private Sub CommandButton1_Click()
Me.Image1.Picture = LoadPicture('C:\\My Pictures\\MyPhoto1.jpg')
End Sub
Private Sub CommandButton2_Click()
Me.Image1.Picture = LoadPicture('C:\\My Pictures\\MyPhoto2.jpg')
End Sub
Private Sub CommandButton3_Click()
Me.Image1.Picture = LoadPicture('C:\\My Pictures\\MyPhoto3.jpg')
End Sub