showwindow函数可以隐藏窗口，但是不能显示,该如何解决

showwindow函数可以隐藏窗口，但是不能显示
模块1

Declare   Function   FindWindow   Lib   "user32 "   Alias   "FindWindowA "   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long
Declare   Function   ShowWindow   Lib   "user32 "   (ByVal   hwnd   As   Long,   ByVal   nCmdShow   As   Long)   As   Long
Const   SW_HIDE   =   0
Const   SW_RESTORE   =   9
Const   SW_SHOW   =   5


form1
Private   Sub   Command1_Click()
Dim   hw&,   cnt&
For   i   =   0   To   List1.ListCount   -   1
hw&   =   FindWindow(vbNullString,   List1.List(i))   '   ThunderRTMain   under   VB4
rtn   =   ShowWindow(hw&,   SW_HIDE)
Next   i
End   Sub
'list中的内容为确切窗口在任务栏上的标题


当隐藏后，再次使用
rtn   =   ShowWindow(hw&,   SW_SHOW)
隐藏窗口不显示，无效。
请问，如何使用可以使得隐藏的窗口重新显示。谢谢

[解决办法]
rtn变量定义了么?
[解决办法]
把显示窗口的具体代码也贴出来看看
[解决办法]
hw& = FindWindow(vbNullString, List1.List(i)) ' ThunderRTMain under VB4
查看这个值是不是0
[解决办法]
Public hw&, cnt&
'定义为全局变量，显示时不用再FindWindow了。