By Dali-Inc SoftwaresCreated 03 Jan 2012, Modified 05 Jan 2012
My Rating:
Vote
Rating:
Not Rated
Views:5599
Downloads:16
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