How to create a non rectangular window

How can I create a non rectangular window instead of the normal rectangular window?
rsiuAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
a111a111a111Commented:
Hi, If you need the complete project email me.

' This goes into the General Declarations section:

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
                             
Private Sub Form_Load()
Show 'The form!
SetWindowRgn hWnd, _
CreateEllipticRgn(0, 5, 600, 200), _
True
End Sub

Have fun.

Any Points?
0
 
a111a111a111Commented:
You can Download my Visual Basic Version of Shape.

The zip File include: EXE for your PC.

http://www.hili.com/~shay/shape.zip
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.