VBA窗体画图

'下面代码复制到模块Declare Function FindWindow _Lib "user32" Alias "FindWindowA" _(ByVal lpClassName As Strin