UNKNOWN '************************************** 'Windows API/Global Declarations for :Ch ' ange Form Shape '************************************** Public Declare Function CreateEllipticRgn Lib "gdi32" _ (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _ ByVal Y2 As Long) As Long Public Declare Function SetWindowRgn Lib "user32" _ (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long '************************************** ' Name: Change Form Shape ' Description:Can Change The Shape of an ' y form ' By: David Serrano ' ' ' Inputs:Look Below ' ' Returns:None ' 'Assumes:None ' 'Side Effects:The border can be preatty ' messed up if you don't know what your do ' ing 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.794/lngWId.1/qx/v ' b/scripts/ShowCode.htm 'for details. '************************************** Private Sub Form_Load() Show 'The form! SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True End Sub 'E-mail Me at BTMSoft@aol.com for more i ' nfo