مشکل این چیه

[mohammadsamadi1377]

منظورم اینه Combo1.AddItem C(s)
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDrives
I = 0
T = 0
Serial = 0
Combo1.Clear
For r = 0 To 25
A(r) = ""
Next r
For e = 1 To 10
C(e) = ""
Next e
For u = 1 To 10
F(u) = ""
Next u
For Cnt = 0 To 25
I = I + 1
If (LDs And 2 ^ Cnt) <> 0 Then
A(I) = Chr$(65 + Cnt)
End If
Next Cnt
For b = 0 To 25

If A(b) <> "" Then
Select Case GetDriveType(A(b) & ":\")
Case 2
T = T + 1
C(T) = A(b) & ":\"
End Select
End If
Next b
For s = 1 To 10
If C(s) <> "" Then
If C(s) <> "A:\" Then
Combo1.AddItem C(s)
F(s) = C(s)
End If
End If
Next s