مشکل در گشودن فایلها از طریق open with ؟

[vb2005]

سلام
به واسطه کد زیر می تونیم وقتی که فایلی از طریق open with با برنامه ما باز میشه آدرس اون فایل رو بدست بیاریم.
با اینکه این کد تو پروژه های دیگه کار میکنه اما نمی دونم چرا تو برنامه من این کد کار نمیکنه.


Private Sub Form_Load()
'A variant will accept any type of data passed
Dim CmdLine
'Get Parameter
CmdLine = Command()
'Process
If Len(CmdLine) = 0 Then CmdLine = "No Command Passed"
'Display
MsgBox CmdLine, 48
End
End Sub

[vb2005]

لطفاً کمک کنید...

[Felony]

من کد شما رو تست کردم ، کار میکنه .

[vb2005]

من کد شما رو تست کردم ، کار میکنه .



من هم امتحان کردم. درست کار میکنه.



با اینکه این کد تو پروژه های دیگه کار میکنه اما نمی دونم چرا تو برنامه من این کد کار نمیکنه.


.......................

[mmssoft]

چه اروری رو مشاهده میکنید؟ لطفا تصویر Error را بگذارید.

[vb2005]

چه اروری رو مشاهده میکنید؟ لطفا تصویر Error را بگذارید.هیچ اروری،در واقع هیچ مقداری به برنامه ارسال نمیشه.
"No Command Passed"

خیلی عجیبه همین کدتو پروژه های دیگه بدون هیچ مشکلی اجرا میشه.

[mmssoft]

واقعا عذر میخوام. من هم امتحان کردم و مثل آقای vb2005 مقداری به برنامه ارسال نشد.
No Command Passed

[vb2005]

لطفاً یکی کمک کنه.........