change panel shape

Question

hai i want to change panel shape and outline . i used following function.

 Private Sub changestyle(ByVal pform As Object)
        Dim p As GraphicsPath = New GraphicsPath '
        p.StartFigure()
        p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
        p.AddLine(40, 0, (pform.Width - 40), 0)
        p.AddArc(New Rectangle((pform.Width - 40), 0, 40, 40), -90, 90)
        p.AddLine(pform.Width, 40, pform.Width, (pform.Height - 40))
        p.AddArc(New Rectangle((pform.Width - 40), (pform.Height - 40), 40, 40), 0, 90)
        p.AddLine((pform.Width - 40), pform.Height, 40, pform.Height)
        p.AddArc(New Rectangle(0, (pform.Height - 40), 40, 40), 90, 90)
        p.CloseFigure()
        pform.Region = New Region(p)
        p.Dispose()
    End Sub

hear i send panel . this function working nice. but outline not come . what i do please explain me sir.