Public Class Form1
 
 
  Public Class MyResource
    Implements IDisposable
 
    Private handle As IntPtr
 
    Private component As Component
 
    Private disposed As Boolean = False
 
    ' The class constructor.
    Public Sub New(ByVal handle As IntPtr)
      Me.handle = handle
    End Sub
 
 
    Public Overloads Sub Dispose() Implements IDisposable.Dispose
      Dispose(True)
 
      GC.SuppressFinalize(Me)
    End Sub
 
 
    Private Overloads Sub Dispose(ByVal disposing As Boolean)
 
      If Not Me.disposed Then
 
        If disposing Then
          ' Dispose managed resources.
          component.Dispose()
        End If
 
 
        CloseHandle(handle)
        handle = IntPtr.Zero
      End If
      disposed = True
    End Sub
 
 
    <System.Runtime.InteropServices.DllImport("Kernel32")> _
    Private Shared Function CloseHandle(ByVal handle As IntPtr) As [Boolean]
    End Function
 
 
    Protected Overrides Sub Finalize()
 
      Dispose(False)
      MyBase.Finalize()
    End Sub
  End Class
 
  Public Shared Sub Main()
    ' Insert code here to create
    ' and use the MyResource object.
 
  End Sub
 
  'End Class
  Private Sub MyBase_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    ButtonOK.Enabled = True
  End Sub
  Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles ButtonOK.Click
    GetImage()
  End Sub
  Private Sub ButtonCancel_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles ButtonCancel.Click
    Me.Close()
  End Sub
  Private Sub ButtonPictureSelect_Click(ByVal sender As System.Object, ByVal e _
    As System.EventArgs) Handles ButtonPictureSelect.Click
    Dim OFD As New OpenFileDialog()
    OFD.CheckFileExists = True
    OFD.CheckPathExists = True
    OFD.Filter = _
      "Bilddateien|*.GIF;*.JPG;*.JPEG;*.PCD;*.PSP;*.PNG;*.TIF;*.TIFF;*.BMP;*PC" & _
      "|Alle Dateien (*.*)|*.*"
    OFD.InitialDirectory = "C:\WPProjects\EMS\WPProjectImages"
    OFD.Multiselect = False
    OFD.Title = "Bitte wählen Sie ein Bild aus."
    If OFD.ShowDialog() = Windows.Forms.DialogResult.OK Then
      TextBoxImageUrl.Text = OFD.FileName
      GetImage()
    End If
  End Sub
  Private Sub GetImage()
 
    If Panel1.Controls.Count > 0 Then
      Panel1.Controls(0).Dispose()
      'Dispose(True)
    End If
 
    Dim PictureBoxPicture As New PictureBox
    PictureBoxPicture.Location = New Point(0, 0)
    PictureBoxPicture.Width = 424
    PictureBoxPicture.Height = 127
 
        Dim lc As Point
        lc.X = Fix((Panel1.Width) / 2 - (PictureBoxPicture.Width / 2))
        lc.Y = Fix((Panel1.Height) / 2 - (PictureBoxPicture.Height / 2))
        PictureBoxPicture.Location = lc
        PictureBoxPicture.SizeMode = PictureBoxSizeMode.Zoom
      Else
        PictureBoxPicture.Width = 0
        PictureBoxPicture.Height = 0
      End If
    End If
    Panel1.Controls.Add(PictureBoxPicture)
    PictureBoxPicture.Refresh()
 
  End Sub
 
End Class