Description:
This piece of code changes the looks of a normal VB form. It executes
two API calls and changes the shape of the rectangular form to a Circular form.
This circular form can be used as a splash form where user gets a feel of the
good looks of the software. You can modify the code to use it for various shapes
and sizes. You can also restrict the user from using the ctrl+ spacebar to exit
by using the borderstyle property. This code is a demonstration of the following
two APIs, which are used in VB6.
Procedure:
On running this code a circular form appears. By right clicking on it
you can exit the application.
API Description.
'The
CreateEllipticRgn function creates an elliptical region
Public
Shared
Function <DllImport("gdi32")> _
CreateEllipticRgn(ByVal X1
As Integer,
_
ByVal Y1 As
Integer, _
ByVal X2 As
Integer, _
ByVal Y2 As
Integer) As
Integer
End Function
'The SetWindowRgn
function sets the window region of a window. The window 'region determines the
area within the window where the system permits drawing. 'The system does not
display any portion of a window that lies outside of the 'window region
Public
Shared
Function <DllImport("user32")> _
SetWindowRgn(ByVal hWnd
As Integer,
_
ByVal hRgn
As Integer, _
ByVal bRedraw
As Integer)
As Integer
End Function