سلام به همه دوستان عزیز .
بعد از چند روز یه کد واستون نوشتم . اینو بزارید توی From_Load ببینید چی میشه !!!!!!!!


 Dim g As New Drawing2D.GraphicsPath

        '------------------------

        Dim Rect As RectangleF

        With Rect

            .Height = 100

            .Width = 150

            .X = 100

            .Y = 100

        End With

        '---------------------

        g.AddRectangle(Rect)

        Me.Region = New System.Drawing.Region(g)