I'm making a project in VB 3.o [I 
normally use 5.o tho], and this code is 
unfortunatly for 32 bit programming 
only. If anyone has a similar code for 
16 bit basic, please email me with it; 
elite_83@hotmail.com.  

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I cant seem to get this code working, 
it keeps giving me errors with the 
source, im using vb5, email me if you 
can help.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I just tested it again, and it works 
fine.
Did you declare in a module? 
What is the error
message?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This one is so cooooooooooooooool!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I have not yet used this, but will it 
allow me have a maximized transparent 
form and run other applications within 
it?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

To John Barden: Yes!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This code worked for me on the first 
try.  This is really cool!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Im unclear about the positioning you 
have in this..I cant seem to figure it 
out.. What is lparam 1-6 like lparam 1 
in the example is that the topright ? 
anyways im familiar with x1 and y1 but 
thats only 4 numbers you have 6 
numbers..

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Can someone direct me trought the 
proccess of this source code please i 
follwed the instruction and exceute he 
code but nothig happens i only see the 
regular form no hols or any thing in it 
so please help me with this .
thanks 
in advance.
jay...

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I don't really get how you use this 
code.  It is so confusing.  Where do I 
enter the code?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great code!  Worked on first try!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Kool stuff, im 16 years old, and got it 
on the first try. Anyone interested on 
testing out software, please e-mail me 
and ill send you some stuff i created...

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Super!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This is so wicked. The only thing is 
that it doesn't support curne shapes. 
if know how please email me. thnaks

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

superb!
worked first time
to all 
those having problems....
have you 
followed the instructions and applied 
the calling code to an action (a button 
for instance)?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great Code!!!
Worked on the first 
try!
Thanxs a lot man!
But can u 
perhaps make a note of each step 
of 
the code??

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

really really coool.  
Not sure what 
I'll use this for, but I'm sure to 
think of something!
for those having 
probs...don't skip step three and 
assign this event to Form_Load if 
nothing else.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Excellent piece of work, its a bit iffy 
when you move the form, but thats about 
it.  I'm not sure what I'm going to use 
it for though.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Add the following code to a timer and 
watch the zany efects:
Private Sub 
Timer1_Timer()
Dim lParam(1 To 6) As 
Long
lParam(1) = Int(Rnd() * 
Me.Width / 15)
lParam(2) = Int(Rnd() * 
Me.Height / 15)
lParam(3) = Int(Rnd() 
* Me.Width / 15)
lParam(4) = Int(Rnd() 
* Me.Height / 15)
lParam(5) = 
50
lParam(6) = 50
Select Case 
Int(Rnd() * 4)
Case 0
    Call 
fMakeATranspArea("RoundRect", 
lParam())
Case 1
    Call 
fMakeATranspArea("RectAngle", 
lParam())
Case 2
    Call 
fMakeATranspArea("Circle", 
lParam())
Case 3
    Call 
fMakeATranspArea("Elliptic", 
lParam())
End Select
End Sub

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Cool function

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Very nicely done! Worked first time! 
With a slight tweak here and there, I 
now have the function working in a .Bas 
module where I can pass any form name 
to the function. Also, using a Type 
declaration and an Enumerated data type 
made it a little tidier.
Anyone 
interested in seeing my changes, feel 
free to e-mail me.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hi there,
Indeed really cool piece of 
coding-art.
BUT:
On resizing a window 
that was made transparant (for a small 
part) you won't see more of the window 
than when the 'fMakeATranspArea' 
function was called.
The solution to 
this problem (test it and see) is to 
call the function (with the same param) 
again when resizing the window 
(Form1_Resize()).
It will now work 
perfectly!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

really really excellent
works a 
treat
now, any ideas (good) where to 
use it?!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

it's great code
I'm a peruvian systems 
programmner.
greetings.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Good Code , Thanks , I have created 
a
Telephone shape form using above 
code
for a dialup application.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I haven't test it yet. I'm working on a 
hackers control station, I want 
everthing for hacking in one program. I 
think I can really use this to shape up 
the program. 
Jaw-Breaker from 
Noth-Side hackers

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

My teacher makes usdo this vb crap, and 
I know just about jack about it.
Oh, 
Well.
Help!!
I think he's coming!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I cant seem to get it to work, can 
someone please send me their 
source?
Thanks

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

COOOL !!!
try it, it works ...

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Wow this is some cool code, if any one 
is confused email me and i will explain

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

CCCCCCCCCCCCCCOOOOOOOOOOOOOLLLLLLLLLLLLL
LLL 
CCCCCCCCCCOOOOOOOOOOOODDDDDDDDDDEEEEEEEE
E
Check this 
site:
http://browse.to/nm

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Code is wicked ... how can I bitblt 
stuff from invisible picture boxes into 
that transparent area?  That way you 
eliminate the need for screen 
capturing.  
Oh, and I'm looking for 
kewl graphics effects.  
thanks.
listen.to/kinema

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

transparent part in form

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

How do u make it so objects are visible 
if u
on top of the transparent area?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Would it be possible to exclude the 
specified region, so the border of the 
form will be transparent instead?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I cant get this to work!  It seems it 
will be awesome, but can someone send a 
example to me. I am using VB 4.0.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Excellent code, worked like a 
charm.
Is there anyway to make the 
transparent area, just transparent and 
not be able to click other applications 
through the hole. I want to make a 
screen capture, draggable cropping 
frame, so users must not be able to 
click the applications inside the 
frame. Please HELP!!!! Anybody.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Code Works Great..
Heres my 
situation..
I want to make my entire 
form transparent, but still show an 
image on top ( the image dont go 
transparent ).
Can anyone help me 
with this?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Excellent stuff!!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

nice code.. worked 1st time.. new toy 
for my mind, thanks.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great code! You must have gotten the 
idea from PeepShow (prog that uses this 
feature)...nice translation into VB. 
Thanks!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great, it work the first time!.. I copy 
the code for step 3 to a command 
button
Command 1 event. Added a button 
to the
form and double clicked it. 
Then I copy 
the code and then REMed 
it out from the 
form. It worked when 
I clicked the button
you have to 
enlarged the form a little 
bit to see 
the hole and then move the form 
around and you will see your code 
or other windows behind it. It is 
cool!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Superb code, but I cannot run the 
function multiple times for one form, 
because you don't start from the form's 
current region, but from a square 
region with the size of the form.
I 
tried to use the API function 
GetWindowRgn, but I always got 0 for 
the rgn.
I also tried the API 
function CreatePolygonalRgn but could 
not make it work.
Could you try 
it?
PS: Does anyone know how to add 
a menu to the Windows Explorer 
File/Folder right-click dropdown 
menu?
To do something like 
WinZip.
Thanks anyway,
Filip

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Great site!!!
I wonder about gettig a 
combobox that
looks like the 
comboboxes for load/save in office97, 
with both drives and folders in the 
same combobox.
Please help me 
someone!!!!!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This code is good.
Anyone know of a 
place where I can get my fat fingers 
something that'll show me ani-gifs.
I 
wanna create a proggie that is like one 
of those message ones....

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Cool Script, it should be pointed 
outCool Script, it should be pointed 
out that the last ten or so lines 
should be between "Private Sub 
Form_Load()" and "End Sub" Has anyone 
modified this script to show images or 
buttons infront of the Transparent area 
?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

I got the code to work on the second 
try, but that's ok. I just don't get 
how to make my own shapes, like the one 
guy who make a phone shape. Can someone 
explain to me how to make the different 
shapes?
Email me if you can tell me

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

im having trouble with the first word 
in the following part:   "SetWindowRgn" 
hWnd, lNewForm, 
True
Me.Refresh
fMakeATranspArea = 
True
Exit Function
Trap:
MsgBox 
"error Occurred. Error # " & Err.Number 
& ", " & Err.Description
End Function

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Nåja den är väl ganska bra men jag har 
inte testat den än

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Be careful when changing region 
while
resizing: the code may run, but 
the compiled may not! -bug I solved a 
few months ago...........

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

For those of you who can't get this to 
work, here's what you do.  Near the end 
of the code, it says "'3  How to call"  
Put everything above that line in the 
declarations area of your form.  Put 
everything below that line where you 
want the transparency to be activated, 
such as a command button.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

this makes the whole thing 
transparent,
even the controls in the 
form..
how can i prevent the controls 
from being transparent 2...;(

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Very Nice Code, now how can I make an 
image or control show up in front of 
the transparent area?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Fun, but cant have other controls 
within transparent area without those 
turning transparent also...

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Could someone just put a plain example 
for usage? something like:
Private 
Sub 
Form_Load()
fMakeATranspArea("RectAngle
", lParam(5, 10, 10, 10))
End 
Sub
that's what I have but it just 
says 'expected ='
I'm not an |diot but 
people really need more documentation 
included with their coding

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Sure it works... whatever, ill call him 
that or: that guy up there ^. you are 
an |diot(i realize u need the | because 
|diot is innapropriat language?), and 
dont let any one tell you otherwise, 
because thats a horrible HORRIBLE lie. 
u should learn Visual Basics before 
looking up other peoples source code, 
because u wouldnt need extra 
documentation if you knew VB. IM me on 
AOL: homer3685 for help u need with VB, 
in case you want to LEARN it. :) 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hi! I'm from philippines, and I'd like 
to say nice code! First try it 
works.... but I have a question what is 
lparam(5) and lparam(6) for?..
But 
anyway keep up the good work... thanx..

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

For those who can't run the code here 
is how...
1. Paste all the code in 
general declaration.
2. Create a 
command button.
3. Rename "' 3 How To 
Call" to "Private Sub 
Command1_Click()"
4. Don't forget to 
put an "End Sub" at the last part of 
the code.
There ya go it should work 
now... :)

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This Code is SO easy to use... Don't 
know why every1's haveing such a 
problem... BUT, How do I 
place 
objects on top of the transparent part?

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Nice code, and easy! But is there a way 
to make a picture box stay on top? If 
so please email me
-thanks-

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

This code worked fine using VB 6.0.  
The first time I tried it.
Great code 
no problems.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hey there Dalin,
great code. May I 
suggest a simple modification. in the 
declarations section just declare one 
more api call:
Private Declare 
Function SetWindowPos Lib "user32" 
(ByVal hwnd As Long, ByVal 
hWndInsertAfter As Long, ByVal X As 
Long, ByVal Y As Long, ByVal cx As 
Long, ByVal cy As Long, ByVal wFlags As 
Long) As Long
Const HWND_TOPMOST = 
-1
Const HWND_NOTOPMOST = -2
And 
anywhere in the form jus declare this 
sub:
Public Sub FormOnTop(handle As 
Long, ontop As Boolean)
Dim wFlags As 
Long, posflag As Long
wFlags = 
SWP_NOMOVE Or SWP_NOACTIVATE Or 
SWP_NOSIZE Or SWP_SHOWWINDOW
Select 
Case ontop
Case True
 posflag = 
HWND_TOPMOST
Case False
 posflag = 
HWND_NOTOPMOST
End 
Select
SetWindowPos handle, posflag, 
0, 0, 0, 0, wFlags
End Sub
And add 
this piece of line AFTER the call to 
fMakeATranspArea: 
  formonTop 
me.hwnd, true
and see the fun.
have 
fun all,
bugsmalli.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

You got the target! Nice code. worked 
great.
I think every body should also 
try 
sugestion from bugsmalli

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hi, thanks for the great code!  It 
worked fine creating a hole in my form, 
but I can't figure out what each of the 
 

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Hi, this code worked fine creating a 
hole in my form, but I can't figure out 
what each of the "lParam()"s do.  I 
can't figure out which one controls the 
top, bottom, left, and right.  If 
anybody could explain what each of the 
1-6 does, I'd greatly eppreciate it.  
Thanks!

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason:
 

Astounding! Great job!  I'm going to 
study this code... you've given me much 
to think about.

Keep the Planet clean! If this comment was disrespectful, please report it:
Reason: