求救vb一嚴重問題 !!!!!!!!(編號：4178)

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