اين سورس فرم شما را به صورت كلاسيك و بدون تم نمايش مي دهد.
كد :
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
نظرات شما عزیزان:
.: Weblog Themes By Pichak :.