اين سورس فرم شما را به صورت كلاسيك و بدون تم نمايش مي دهد.

كد :

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
SetWindowRgn Me.hWnd, 1, True
End Sub