Wat is er hier mis mee?For a1 = 195 To 220
For a2 = 1 To 255
For a3 = 1 To 255
For a4 = 1 To 255
For Port = 1 To 100
c = c + 1
If c <> 1 Then
Load Client(c)
End If
MsgBox a1 + "." + a2 + "." + a3 + "." + a4
Client(c).Connect host, Port
DoEvents
Next Port
Next a4
Next a3
Next a2
Next a1
Heb de a1,a2,a3,a4 als integer gedeclareerd en toch pakt ie dit niet, hij wil niet msgboxen want dan geeft hij de volgende fout:
Runtime Error '13
Type Mismatch