Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.Filter = ".jpg|*.jpg"
 
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim neu As New frmBild()
            neu.MdiParent = Me
            neu.PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
            neu.Show()
            neu.Top = neu.MdiParent.Height / 2 - neu.Height / 2
            neu.Left = neu.MdiParent.Width / 2 - neu.Width / 2
        End If
    End Sub

fg viperbone