اين برنامه چرا اررور ميده ؟

[hasht.rood]

سلام دوستان اين برنامه كه سورسش رو براتون گذاشتم يك web browser هست كه از firefox استفاده ميكنه.
وقي كامپايل ميكنم اررور ميده
شما دوستان عزيز ببينيد ايرادش چيه ؟


عكس برنامه:
78848

دانلود پروژه: 78849

سورس برنامه
Option Explicit
Private MyMsg$
Private Sub Command1_Click()
MozillaBrowser1.Navigate2 Text1
End Sub

Private Sub Command2_Click()
MozillaBrowser1.Refresh

End Sub

Private Sub Command3_Click()
MozillaBrowser1.Stop

End Sub

Private Sub Command4_Click()
MozillaBrowser1.GoForward

End Sub

Private Sub Command5_Click()
MozillaBrowser1.GoBack

End Sub

Private Sub Form_Load()
Command1_Click
End Sub

Private Sub MozillaBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, _
Flags As Variant, _
TargetFrameName As Variant, _
PostData As Variant, _
Headers As Variant, _
Cancel As Boolean)
Command1.Enabled = False
Me.Caption = "...چند لحظه صبر کنيد" & " - " & MyMsg$

End Sub

Private Sub MozillaBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Command1.Enabled = True
Me.Caption = "بارگذاري به اتمام رسيد" & " - " & MyMsg$


End Sub

Private Sub MozillaBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
Label2 = Int((Progress * 100) / ProgressMax) & "%"
End Sub

Private Sub MozillaBrowser1_StatusTextChange(ByVal Text As String)
Label1 = Text
End Sub

Private Sub MozillaBrowser1_TitleChange(ByVal Text As String)
MyMsg$ = Text
End Sub

Private Sub MozillaBrowser1_Click()

End Sub

هر كسي ميتونه كمك كنه دريغ نكنه. نياز دارم اساسي

[adib202]

يه refrence به نام mozctl.dll مي خواد كه توي فايل ضميمه كه گذاشتي نيست.

[elimiz]

سلام
بفرماييد اينم فايل mozctl.dll كه gلينكش رو ميزارم براتون.
من كه نتوستم ايرادش رو پيدا كنم

دانلود (http://www.dlldump.com/download-dll-files_new.php/dllfiles/M/mozctl.dll/1,0,0,1/download.html)