Public Sub ZeigeBild(ByVal datei As String)
        Debug.Print("ZeigeBild: " & datei)
 
        Dim g As Graphics = Me.CreateGraphics
        newImage = New Bitmap(datei)
        Debug.Print(newImage.Height & " : " & newImage.Width)
        g.DrawImage(newImage, 10, 10, 400, 400)
End Sub

Dim g As Graphics = Me.CreateGraphics
        newImage = New Bitmap("C:\Dokumente und Einstellungen\xxx\Eigene" & _
          "Dateien\Eigene Bilder\Picture2.jpg")
        g.DrawImage(newImage, 10, 10, 400, 400)