ok with this code you can do stuff like this
now this tutorial is very easy first step is to declare the stuff below. so in
ModDeclares add
Code:
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
then after this you need to add this function<it can be added in anywhere but i just added mine to the bottom of ModDeclares>
add this code anywhere.
Code:
Function CutCirCle(Form As Form, Left, Top, Fat, Tall)
SetWindowRgn Form.hWnd, CreateEllipticRgn(Left, Top, Fat, Tall), True
End Function
and after that all you need to do is to call the function on form load. so add this to any of your
Sub Form_Load on any form.
Code:
Call CutCirCle(Me, 0, 30, 1000, 900)
ok now here is the fun part messing with the call a bit =]. Well
Call CutCirCle(Me, 0, 30, 1000, 900) the first 0 is the bottom it move the bottom away or back to original, the second is the top it removes the top of the form, as the other two are the two sides left and right. So have fun making weird shapes with your forms.
this especially works good for your mainmenu.
cheers*
_________________
Fuck? I really joined in 2006.
Spirea, Chat Rooms, Discussions, Help. everything you need in one spot.
http://spirean.comI love my computer, you never ask for more, you can be my princess or be my whore