有一段程序，在win2000下运行正常，而且在98下不正常，各位大侠关注一下

Question

Private Sub mnu_ZHCS_Click()
Dim lh As Long
Dim response As Integer
hMainWnd = 0If MMImain.MSComm1.PortOpen = True Then
   MMImain.MSComm1.PortOpen = False
   UpCS = True
ElseIf UpCS = False Then
   response = MsgBox("串口未打开，请重新配置串口！", vbDefaultButton1 + vbQuestion, "提示：")
   Exit Sub
End IfMMI_Tishi1 = "串口已打开： " & sCurCom & "," & sCurComBps & "," _
               & sCurComCheck & "," & sCurComDataWei & "," & sCurComStopa = Shell(App.Path & "\P_UpCs.exe", vbNormalFocus) 'P_UpCs.exe是用delphi写的一个程序，他启动的
                                                    同时也打开串口。
GetProcessMainWnd a
SetWindowPos hMainWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Timer4.Interval = 100end sub 
###################################################
Private Sub Timer4_Timer()
Dim lp As Long
Dim tempid As Long
Dim dwAccess As Long
'来监测p_Upcs.exe程序退出，然后打开VB里的串口dwAccess = STANDARD_RIGHTS_REQUIRED + SYNCHRONIZE + 0 'FFF&
lp = OpenProcess(dwAccess, 0, a)
If lp = 0 Then
  UpCS = False
  mnu_ChuankOpen_Click 
  Timer4.Interval = 0
End If
End Sub