求救!!!!!!!懇請高手賜教!!!!!!!!(編號：4216)

vb的程式 :

有二執行檔 : A.exe B.exe

A.exe 中

Sub main()
If App.PreInstance = False Then
　　　.........
　　　.........
　 End If　

End Sub

按開始功能表中,click "A",執行 A.exe , 會在Windows右下角,有一icon,
A.exe開始執行,但視窗隱藏起來.Double Click 此icon,執行B.exe

B.exe 中

Sub main()
Dim hwnd As Long
　 hwnd = FindWindow(NullString,"A的標題")
　 If hwnd = 0 Then
　　　Call Shell(App.Path & "\A.exe")
　 End If
　 If App.PreInstance = False Then
　　　..........
　　　..........
　 End If

End Sub

當A.exe,B.exe都執行起來時,依使用者使用狀況,兩者會有傳遞視窗訊息的情形,所以才這樣設計.

此時,再去按開始功能表中,click "A",執行 A.exe,出現錯誤訊息 : "遺失 A.lnk" ,
click "確定",然後整個Windows很多功能都沒辦法執行,畫面殘缺

我是希望使用者重覆click "A",執行 A.exe,都不會發生錯誤

請問會是什麼原因 ? 這問題怎麼解決 ??


Thanks !!!
winman
chsu@acer.net