• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Creates an invisible form that is still active. Code works best when placed in a module and called

Creates an invisible form that is still active. Code works best when placed in a module and called

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




Rate Creates an invisible form that is still active. Code works best when placed in a module and called

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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