Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim grpth1 As New GraphicsPath
        grpth1.AddEllipse(0, 0, Me.Width, Me.Height)
        Me.Region = New Region(grpth1)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov