Dim Bild1, Bild2 As Bitmap
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
     Bild1 = New Bitmap("C:\Picture1.jpg")
     Bild2 = New Bitmap("C:\Picture2.jpg")
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
     Me.PictureBox1.Image = Bild1
End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
     Me.PictureBox1.Image = Bild2
End Sub