by BLUEFOX (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 3rd February 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Creates an invisible form that is still active. Code works best when placed in a module and called as a subroutine. (This is a modification to
API Declarations
Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long
VBcoders
Public Sub MKInvis()
Dim lngRegion As Long
Dim lngReturn As Long
Dim lngFormWidth As Long
Dim lngFormHeight As Long
lngFormWidth = (Form1.Width / Screen.TwipsPerPixelX) - 400
lngFormHeight = (Form1.Height / Screen.TwipsPerPixelY) - 400
lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
lngReturn = SetWindowRgn(Form1.hWnd, lngRegion, True)
End Sub
No comments have been posted about Creates an invisible form that is still active. Code works best when placed in a module and called . Why not be the first to post a comment about Creates an invisible form that is still active. Code works best when placed in a module and called .