Округление углов формы - VB

Формулировка задачи:

Когда "BorderStyle" ставишь на 0, то получается, даже не знаю как назвать, ну в общем вы не раз пробовали так делать и знаете что получится. Меня интересует вот что, можно ли округлить углы у формы при "Border Style = 0"?

Решение задачи: «Округление углов формы»

textual
                            Листинг программы 
                        

                            Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
 
Private Sub Form_Load()
    Dim Rgn As Long
    Me.ScaleMode = vbPixels
    Rgn = CreateRoundRectRgn(0, 0, Me.ScaleWidth, Me.ScaleHeight, 100, 100)
    SetWindowRgn Me.hWnd, Rgn, True
End Sub
                        