By Dali-Inc SoftwaresCreated 03 Jan 2012, Modified 05 Jan 2012
My Rating:
Vote
Rating:
Not Rated
Views:6384
Downloads:17
Source:

Transparent Form

Language:  VB

Compatibility

Windows XP Yes Windows 2003 Yes
Windows 2000 Yes Windows NT Yes
Vista Yes Windows 2008 Yes
Description

make your user form transparent. value starts from 200 and below.. the lower the value the more transparent it becomes.., the value should not exceed 200, otherwise it generates an error..

Code

Line Numbers: On  Off      Plain Text
'paste code in module
Option Explicit
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2
Private Declare Function GetWindowLong Lib "user32" _
  Alias "GetWindowLongA" (ByVal hWnd As Long, _
  ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
   Alias "SetWindowLongA" (ByVal hWnd As Long, _
   ByVal nIndex As Long, ByVal dwNewLong As Long) _
   As Long
Private Declare Function SetLayeredWindowAttributes Lib _
    "user32" (ByVal hWnd As Long, ByVal crKey As Long, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Public Function TransForm(Form As Form, TransLevel As Byte) As Boolean
    SetWindowLong Form.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
    SetLayeredWindowAttributes Form.hWnd, 0, TransLevel, LWA_ALPHA
    TransForm = err.LastDllError = 0
End Function

'=========================
'paste this code on form load
Private Sub Form_Load()
On Error Resume Next
TransForm Me, 200
' the value should not be more that 200, but it can be less than 200
End Sub

 


Got a useful script? Click here to upload!


 

  Post Comment
Order By:  
User Comments
      

Posted On: 5/16/2018 9:20:33 AM

The fast food restaurant that does not need any introduction is McD. Everyone knows about this McD. mcdvoice | mcdvoice.com | www.mcdvoice.com

jessen
Posted On: 8/24/2018 2:36:34 AM

Since 2007, Kemimoto have managed to build up a young and vigorous team able to manufacture and trade worldwide the Motorcycle ATV or UTV parts such as utv rear view mirror , which impress everyone with their elegant design and high quality.

jessen
Posted On: 8/24/2018 2:36:38 AM

Since 2007, Kemimoto have managed to build up a young and vigorous team able to manufacture and trade worldwide the Motorcycle ATV or UTV parts such as utv rear view mirror , which impress everyone with their elegant design and high quality.


Posted On: 9/14/2018 10:07:56 AM

happy wheels free online.

wq123
Posted On: 10/28/2018 11:55:51 PM

a barbour outlet converse player softball bats hermes outlet Kiper thinks roshe run ralph lauren uk should nike air max nfl falcons have tory burch sandals nfl redskins stayed pandora nfl chargers at nfl ravens nfl panthers North nike.de coach factory outlet online Carolina levis outlet store nfl buccaneers for hogan nfl raiders another tory burch shoes nfl saints season. they’re nike.dk longchamp outlet also louboutin outlet nop jerseys picking giuseppe zanotti hilfiger outlet at katespade outlet nba jerseys outlet No. barbour mens jackets roshe run 12 swarovski coach bags and vans schuhe coach outlet sale they michael kors purses lacoste polos may nike air max fred perry fear www.tommyhilfiger.nl burberry outlet online the coach outlet calvin klein Jets ed hardy clothing pistons jersey could belstaff mens jackets true religion take cheap oakley sunglasses baseball jerseys Mitchell Trubisky ralph lauren outlet uggs at ralph lauren outlet pandora jewellery No. ralph lauren polo polo ralph lauren 6 tory burch shoes nfl packers and north face outlet oakley sunglasses outlet look ray ban sunglasses outlet hilfiger to ray ban sbocco coach outlet move oakley Hermes ahead.,“I air max 95 nfl chiefs think ralph lauren shirts cleveland cavaliers jerseys you coach purses mcm outlet look swarovski barbour women jackets at bottega veneta thomas sabo the portland trail blazers cheap basketball shoes Cleveland Browns prada sunglasses nfl broncos [as prada outlet michael kors outlet online sale a new balance store kate spade outlet team ralph lauren uk shoes on sale possibly bos jersey michael kors outlet online willing dsquared2 jeans chrome hearts jewelry to burberry handbags michael kors v?skor trade nike free shoes prada outlet up],” michael kors michael kors bags Kiper cheap michael kors rayban sunglasses said. red bottoms ugg australia “If oakley outlet online coach factory online they, fred perry shoes nfl texans in fact, the north face true religion jeans outlet take nike.com beats by dre Myles nike air max polo outlet online Garrett nike mercurial cheap true religion No. converse outlet michael kors australia 1 “There levi's jeans pandora rings has hugo boss outlet nfl dolphins been longchamp nfl 49ers talk guess jeans cheap oakley sunglasses that bcbg max azria true religion jeans women Tennessee swarovski jewelry adidas could nfl rams denver nuggets move polo ralph lauren outlet online adidas shoes outlet down, nfl bengals soccer outlet online we’ll nike outlet reebok shoes see beats audio nfl lions about Jacksonville, zapatillas nike nets jersey but mcm bags lunette oakley pas cher if nfl colts nike store the flat iron puma outlet store Bears vans outlet skechers want air max suns jerseys to tory burch sale adidas.de move ralph lauren true religion outlet out nfl jaguars nike air force of michael kors outlet online sale air max three dsquared2 shoes nike free 5.0 I dre beats air jordan retro think air max 90 nike huaraches that charlotte hornets jersey nba jerseys outlet could air max shoes supra footwear be burberry polo ralph a spot nfl eagles ray ban sunglasses for mont blanc nba jerseys Cleveland san antonio spurs nike mercurial vapor to jordan release dates adidas superstar jump oakley sunglasses outlet bottega up ray ban sunglasses ray ban sunglasses and pandora bracelets kobe bryant jersey take oakley timberland boots Trubisky.a barbour mens jackets air max 2014 player mcm bags burberry outlet Kiper thinks replica handbags versace outlet should burberry under armour curry have woolrich outlet online ugg stayed mbt shoes outlet christian louboutin shoes at ecco women shoes memphis grizzlies North kanye west shoes cheap michael kors Carolina tods mens shoes oakley prescription for cheap glasses ferragamo outlet another michael kors bags mcm backpack outlet season. they’re burberry sale occhiali oakley also new balance indiana pacers picking tommy hilfiger outlet stores nfl bears at nike air max kate spade outlet online No. giuseppe shoes ray ban zonnebril 12 pandora free running and oakley outlet chicago bulls they mont blanc pens ralph lauren online may los angeles clippers nike online fear links of london bracelets adidas.se the coach outlet prada handbags Jets converse shoes bcbg dresses could louboutin nike air max 2014 take nike huarache minnesota timberwolves Mitchell Trubisky rayban air jordan shoes at skechers moncler outlet online No. coach factory outlet online cheap jerseys 6 asics gel plein outlet and jerseys from china mcm handbags look scarpe hogan philadelphia 76ers jersey to c&c beanies wholesale ralph lauren move cheap jerseys nike outlet store ahead.,“I vans outlet online nfl browns think ferragamo rayban you supra shoes burberry uk look nfl patriots michael kors outlet online at soccer shoes ray ban the the north face outlet guess bags outlet Cleveland Browns fidget spinner new balance [as babyliss armani clothing a coach outlet online tommy hilfiger online shop team juicy couture cheap oakley possibly north face backpacks new balance shoes willing nba jerseys ray ban to ray bans nfl seahawks trade gafas oakley michael kors purses up],” jerseys from china michael kors outlet Kiper louboutin shoes jimmy choo said. mia jersey guciheaven “If ferragamo shoes louboutin they, valentino shoes outlet ray ban outlet in fact, nfl cowboys michael kors take christian louboutin ugg australia Myles burberry handbags toronto raptors Garrett nfl giants cheap oakley No. jerseys from china under armour ua shoes 1 “There nike roshe nike.se has ray ban sunglasses outlet long champ been jimmy choo shoes ray ban sunglasses talk nike free run nike max that new balance free run Tennessee hogan shoes outlet the north face could coach outlet coach factory outlet online move north face uggs down, orlando magic skechers womens shoes we’ll uhren adidas sneakers see the north face uggs about Jacksonville, michael kors purses lunette ray ban pas cher but washington wizards roche run if burberry handbags jack wolfskin outlet online the nfl bills adidas neo Bears roshes polo ralph lauren want givenchy bags outlet ralph lauren factory store to marc jacobs outlet tommy hilfiger move longchamp timberland shoes out sac jerseys knicks jerseys of coach factory outlet online timberland outlet three stone island store coach outlet online I air jordans michaelkors.com think converse chucks barbour women jackets that nfl jerseys michael kors outlet online could ugg northface be hermes birkin salvatore ferragamo a spot nike tn requin ralph lauren for jordan shoes cheap jerseys Cleveland coach black friday iphone 4s cases to cheap eyeglasses nfl jets jump puma michael kors canada up burberry outlet online belstaff sale and cheap nike shoes lacoste shirts take adidas shoes belstaff Trubisky. vans shoes nfl titans michael kors juicy couture clothings fitflop cheap true religion nike air max 2015 utah jazz ralph lauren tommy hilfiger fendi outlet online huaraches michael kors handbags christian louboutin nike air force cheap oakley sunglasses asics michaelkors.com designer handbags wholesale handbags coach outlet en ligne salomon schuhe swarovski crystal vibram shoes polo ralph lauren outlet burberry outlet online parajumpers outlet online iphone 5 cases houston rockets jordans for sale prada reebok nba jerseys milwaukee bucks asics nfl vikings versace shoes outlet philipp plein clothes moncler women jackets timberland homme ralph lauren outlet online dallas mavericks jersey nfl steelers polo ralph lauren nfl jerseys outlet nike air north face pas cher jack wolfskin burberry online shop swarovski kevin durant shoes russell westbrook jersey michael kors handbags nike air gsw jerseys ray ban wayfarer longchamp taschen michael kors bags hermes bags thomas sabo mizuno running oakley sunglasses marc jacobs handbags nfl azcardinals kate spade salvatore ferragamo polo ralph lauren outlet dansko shoes replica watches nike roshe pandora cheap jerseys air jordan mizuno running shoes

daisyjane2018
Posted On: 11/9/2018 1:28:26 AM

The league announced the news this morning, writing in a press release that,cheap authentic jerseys "Beginning Friday, November 9, NFL team 'outfits' will be available in the cheap nfl jerseys Shop. This unique opportunity will give Fortnite players the ability to purchase and customize up to eight outfits representing their favorite NFL teams."cheap jerseysWe're just getting started, though! There will also be "football-themed emotes, harvesting tools, gliders, and even a referee outfit." cheap sports jerseys Even a referee outfit! cheap jerseys from chinaSo there you have it, Fortniters (Fortnitees?). Your prayers have been answered. Everyone gets their favorite team's football jersey,wholesale jerseys and themed emotes, and harvesting tools, and gliders. Click here to choose the new cheap authentic jerseys from china and wholesale nfl jerseys! Receive comprehensive coverage of the Bears and stream the ‘Football Aftershow’ easily on your device.click here cheap authentic nfl jerseys.It's not a giant surprise,custom cowboys jersey but it's still impressive to see. Fortnite is hugely popular among professional athletes, and it's football season,discount jerseys after all. Epic Games just announced an official partnership with the NFL to bring licensed jerseys to the popular battle royale game, letting players don the jerseys of their favorite teams as they blast each other into oblivion.discount nfl jerseys cheap nfl jerseys cheap jerseys cheap jerseys from china wholesale jerseys cheap nfl jerseys from china china jerseys nfl jerseys china wholesale nfl jerseys cheap authentic nfl jerseys cheap jerseys online cheap authentic jerseys cheap sports jerseys cheap wholesale jerseys china wholesale jerseys discount nfl jerseys cheap authentic jerseys from china discount jerseys custom cowboys jersey Click here GOOGLE FACKBOOK Amazon nfl jerseys cheap cheap college football jerseys cheap nfl jerseys china cheap football jerseys custom jerseys cheap cheap nfl gear cheap nfl authentic jerseys cheap jerseys nfl nfl football jerseys cheap cheap nfl football jerseys cheap nfl jerseys free shipping cheap nfl nike jerseys custom nfl jerseys cheap nfl cheap jerseys

daisyjane2018
Posted On: 1/17/2019 2:29:11 AM

sac a main michael kors pas cher basket femme pas cher maillot foot pas cher maglie nba a poco prezzo michael kors borse prezzi borse michael kors prezzi maglie calcio a poco prezzo maglie calcio poco prezzo maglie calcio 2019 comprar camisetas de futbol camisetas nba baratas comprar camisetas nba camisetas de nba baratas camisetas de futbol baratas camisetas futbol baratas coach outlet online coach outlet store online coach factory outlet online store coach factory outlet online coach factory outlet online login cheap coach handbags coach factory outlet store coach factory store online cheap nfl jerseys cheap nfl jerseys from china wholesale nfl jerseys cheap polo ralph lauren online kate spade outlet real madrid trikot nba trikots fussball trikots fußball trikot bayern münchen trikot nike trikot schalke trikot 18 19 bayern trikot 2019 fc barcelona trikot neymar trikot atletico madrid trikot football trikot deutschland trikot kinder michael kors outlet michael kors outlet online michael kors factory outlet cheap michael kors bags cheap michael kors purses cheap michael kors chaussures louboutin pas cher christian louboutin louis benech coach outlet store online coach factory outlet online cheap coach purses official coach factory outlet online coach factory outlet online login official coach outlet online cheap coach handbags coach factory store online coach outlet online coach factory outlet coach purses cheap cheap coach handbags coach factory outlet store coach factory store online michael kors outlet online cheap michael kors bags nba sportando nba store eu canotte nba cinema moderno maglie canotte nba a poco prezzo cheap nfl jerseys cheap jerseys from china cheap authentic jerseys cheap nfl authentic jerseys cheap jerseys online cheap polo ralph lauren outlet cheap polo ralph lauren online dortmund trikot manchester united trikot bayern münchen trikot bvb trikot 18 19 maillot de foot pas cher maillot foot pas cher maillot de foot pas cher net cheap football shirts

daisyjane2018
Posted On: 2/21/2019 9:20:18 AM

cheap coach handbags maglie calcio 2019 cheap authentic jerseys coach outlet clearance coach outlet online cheap jerseys online cheap polo ralph lauren online official coach outlet online atletico madrid trikot borse michael kors prezzi camisetas futbol baratas cinema moderno maglie cheap nfl jerseys from china comprar camisetas nba comprar camisetas de futbol tu dortmund unimail sportando nba cheap nfl jerseys maglie calcio poco prezzo cheap nfl authentic jerseys coach factory outlet online login dortmund trikot coach factory outlet online login michael kors borse prezzi coach factory outlet camisetas de nba baratas coach outlet online michael kors borse prezzi coach factory store online neymar trikot coach factory outlet store michael kors outlet online schalke trikot 18 19 deutschland trikot kinder coach factory store online official coach factory outlet online maillot de foot pas cher camisetas de futbol baratas cheap jerseys from china cheap jerseys from china wholesale nfl jerseys maillot de foot pas cher net kate spade outlet cheap coach purses fussball trikots maglie calcio a poco prezzo michael kors outlet coach factory outlet online store nike trikot canotte nba a poco prezzo nba tabellenstand cheap michael kors bags maglie nba a poco prezzo basket femme pas cher real madrid trikot christian louboutin louis benech coach factory outlet store michael kors borse prezzi cheap nfl jerseys chaussures louboutin pas cher maillot foot pas cher cheap nfl jerseys cheap football shirts cheap coach handbags coach outlet store online camisetas nba baratas

daisyjane2018
Posted On: 4/20/2019 12:59:33 AM

michael kors rea cheap nfl authentic jerseys todo camisetas futbol equipacion atletico de madrid 2019 camisetas retro futbol comprar camisetas de futbol baratas borse michael kors outlet michael kors borse prezzi michael kors borse outlet nbaplus horarios cfb3camisetas michael kors borse prezzi mel ouvert caen heure de priere strasbourg 67200 cheap authentic jerseys coach crossbody bags on sale coach outlet online clearance cheap custom shirts cheap custom t shirts no minimum custom shirts online cheap authentic nfl jerseys 19.99 nfl jerseys american girl doll wigs american girl doll wigs cheap cheap custom phone cases stubhub miami heat cheap wigs online cheap nfl jerseys cheap nhl jerseys cheap ralph lauren shirts online flannel bridesmaid shirts coach purses on clearance coach factory online sale invitation coach factory outlet online login official coach factory outlet online coach bags factory outlet camisetas de marca baratas originais bounty camisetas de fútbol 2siteweb cheap custom phone cases lg tribute phone case zte zmax pro custom case cheap lace front wigs cell phone cases wholesale cheap coach purses coach outlet online coach factory outlet online peakmill wigs rosewholesale wigs infoclick anm prefisso 045 cheap human hair wigs nba sportando nfl shop jerseys nfl jerseys wholesale maillot boca junior maillot asse pas cher cheap best friend shirts calciomercatonapoli24 borse michael kors outlet michael kors väska rea borse michael kors saldi polo ralph lauren outlet online polo ralph lauren factory store michael kors plånbok napolicalcio24 coach outlet online coach handbags clearance coach purses on clearance coach factory outlet online login www coachoutlet com coach outlet coupon official coach factory outlet online nba store eu polo outlet polo ralph lauren outlet online retro nba jerseys cheap michael kors plånbok borse michael kors outlet pochette michael kors prezzo cheap nfl jerseys nba sportando michael kors väska rea nba replay coach outlet online store

alicetaylor
Posted On: 5/10/2019 9:02:13 AM

Thanks for sharing this valuable information to our vision. You have posted a trust worthy blog keep sharing. return man 2 zombies


Posted On: 5/11/2019 4:31:41 AM

I really like visiting your site because I think your posts are amazing. Thanks a lot for sharing them. run 3

phamyen
Posted On: 5/13/2019 7:01:38 AM

Thank you, it is really a very good idea. facebook entrar

muoigio
Posted On: 5/17/2019 8:25:00 AM

Thanks for the information you shared. Zombotron 2


Posted On: 5/18/2019 4:28:49 AM

The article you have shared here very awesome raze 3


Posted On: 6/7/2019 9:52:07 AM

Thank you for that information you article Potty Racers

12