Public Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long

Public Function IsVisible(hWnd As Long) As Boolean
	IsVisible = CBool(IsWindowVisible(hWnd))
End Function