Attribute VB_Name = "GLOBAL" Global Square As Object Global Const SW_HIDE = 0, SW_SHOW = 1 Global Const SW_MINIMIZE = 2, SW_MAXIMIZE = 3