set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect state = bzhao.WindowState() MsgBox "The window state is " & state
set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect bzhao.WindowState = 2