Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
The first time this Function is called it is false(this is correct)
Const GWL_STYLE = (-16) Const WS_VSCROLL = &H200000 Const WS_HSCROLL = &H100000 Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" ( _ ByVal Hwnd As Long, _ ByVal nIndex As Long) As Long '================================================================== Public Function IsHScrollVisible(Hwnd As Long) As Boolean Dim Style As Long Style = GetWindowLong(Hwnd, GWL_STYLE) If (Style And WS_HSCROLL) Then IsHScrollVisible = True Exit Function End If End Function '================================================================== Public Function IsVScrollVisible(Hwnd As Long) As Boolean Dim Style As Long Style = GetWindowLong(Hwnd, GWL_STYLE) If (Style And WS_VSCROLL) Then IsVScrollVisible = True Exit Function End I End Function Sub PositionForm_Grid gridStats.Width = 12184 If IsVScrollVisible(gridStats.Hwnd) = False Then gridStats.Width = 11800 End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.