Sub Compiling error

[mjm]

Hi,

My script errors when compiling with:

SCRIPT: Compiling Error => Line 59 : Expected statement (-2146827264)

'Variables available on this screen can be declared and initialized here.
Dim i
Dim j

'Procedures available on this screen can be implemented here

'This procedure is executed just once when this screen is open.
Sub Screen_OnOpen()

End Sub

'This procedure is executed continuously while this screen is open.
Sub Screen_WhileOpen()

For i = 9 To 13
$FwdCmb_05[i].Description = "Fwd Cmb " & CStr(i)+1
$FwdCmb_Pics_05[i].Description = $FwdCmb_05[i].Description

For j = 0 To 0
$FwdCmbCR_05[j].Description = "Fwd Cmb Control Unit " & CStr(i)+1
$FwdCmbCR_Pics_05[j].Description = $FwdCmbCR_05[j].Description

If $FwdCmb_05[i].Amp_A = 1 Then
$FwdCmb_Pics_05[i].Amp_A = "web\Ok.bmp"
Else
$FwdCmb_Pics_05[i].Amp_A = "web\FAIL_RED.bmp"
End If

If $FwdCmb_05[i].Amp_B = 1 Then
$FwdCmb_Pics_05[i].Amp_B = "web\Ok.bmp"
Else
$FwdCmb_Pics_05[i].Amp_B = "web\FAIL_RED.bmp"
End If

If $FwdCmbCR_05[j].Amp = 1 Then
$FwdCmbCR_Pics_05[j].FwdCmbRC_Amp = "web\Ok.bmp"
Else
$FwdCmbCR_Pics_05[j].FwdCmbRC_Amp = "web\FAIL_RED.bmp"
End If

If $FwdCmbCR_05[j].PS_A = 1 Then
$FwdCmbCR_Pics_05[j].FwdCmbRC_PS_A = "web\Ok.bmp"
Else
$FwdCmbCR_Pics_05[j].FwdCmbRC_PS_A = "web\FAIL_RED.bmp"
End If

If $FwdCmbCR_05[j].PS_B = 1 Then
$FwdCmbCR_Pics_05[j].FwdCmbRC_PS_B = "web\Ok.bmp"
Else
$FwdCmbCR_Pics_05[j].FwdCmbRC_PS_B = "web\FAIL_RED.bmp"
End If

If $FwdCmbCR_05[j].Pwr = 1 Then
$FwdCmbCR_Pics_05[j].FwdCmbRC_PS_A = "web\Ok.bmp"
Else
$FwdCmbCR_Pics_05[j].FwdCmbRC_Pwr = "web\FAIL_RED.bmp"
End If

End Sub

'This procedure is executed just once when this screen is closed.
Sub Screen_OnClose()

End Sub


I'm new to VB and would appreciate help.

Thanks in advance,

m.