Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
 
        Dim x1 As Integer = PictureBox1.Left
        Dim x2 As Integer = PictureBox1.Left + PictureBox1.Width
        Dim y1 As Integer = PictureBox1.Top
        Dim y2 As Integer = PictureBox1.Top + PictureBox1.Height
 
        Dim points() As Point = New Point() {New Point(x1, y1), _
                                             New Point(x2, y1), _
                                             New Point(x2, y2), _
                                             New Point(x1, y2)}
 
        Dim point_types() As Byte = New Byte() {CByte( _
          Drawing2D.PathPointType.Line), _
                                                CByte( _
                                                Drawing2D.PathPointType.Line), _
                                                CByte( _
                                                Drawing2D.PathPointType.Line), _
                                                CByte( _
                                                Drawing2D.PathPointType.Line)}
 
        Me.Region = New Region(New Drawing2D.GraphicsPath(points, point_types))
    End Sub