Jobs
Author: Julito Amodia Date Submitted: 5/13/2006 Category: Forms Compatibility: .NET This code has been accessed 8853 times.
Email Yourself this snippet:
Option Explicit Private Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" _ (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long
Code
Private Sub Form_Load() 'Show The form! SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True End Sub
