Parky_007
New Member
I get a Run-time error 424: Object Required, when using this code:
Please can anyone correct this code?
Code:
Public Sub Form_Load()
MainBrowser.Navigate ("about:blank")
If Dir$(App.Path & "\detail.dll") = "detail.dll" Then
Open App.Path & "\detail.dll" For Input As #1
sDetail = Input(1, #1)
Close #1
Else
sDetail = "0"
End If
If sDetail = "0" Then
High.Checked = True
Low.Checked = False
End If
If sDetail = "1" Then
High.Checked = False
Low.Checked = True
End If
If Dir$(App.Path & "\plugin.dll") = "plugin.dll" Then
Open App.Path & "\plugin.dll" For Input As #2
sJava = Input(1, #2)
Close #2
Else
sJava = "0"
End If
If sJava = "0" Then
Java0.Checked = True
Java1.Checked = False
Java2.Checked = False
Java3.Checked = False
End If
If sJava = "1" Then
Java0.Checked = False
Java1.Checked = True
Java2.Checked = False
Java3.Checked = False
End If
If sJava = "2" Then
Java0.Checked = False
Java1.Checked = False
Java2.Checked = True
Java3.Checked = False
End If
If sJava = "3" Then
Java0.Checked = False
Java1.Checked = False
Java2.Checked = False
Java3.Checked = True
End If
End Sub