ايران ويج

سلام
من مي خوام در ياهو از گرينه Action گزينه Send a Instant Message را كليك كنم تا پنجره ظاهر شود كه به كمك اين دستور نوشتم
Dim aMenu As Long, sMenu As Long, sID As Long
Dim Hw As Long
Hw = FindWindow("YahooBuddyMain", vbNullString)
aMenu& = GetMenu(Hw)
sMenu& = GetSubMenu(aMenu&, 2)
sID& = GetMenuItemID(sMenu&, 0)
sString$ = String$(100, " ")

Call SendMessageLong(Hw, WM_COMMAND, sID&, 0&)

حالا وقتي اين برنامه اجرا مي شه اين پنجره ياهو فعال مي شه ولي برنامه كلا غيرفعال مي شه اشكال از كجاست ؟؟؟؟؟؟؟؟؟؟/
مرسي