AlreadyConnected = False
For i = 0 To AllDrives.Count - 1 Step 2
If AllDrives.Item(i) = Drive_H Then AlreadyConnected = True
Next
For i = 0 To AllDrives.Count - 1 Step 2
If If AllDrives.Item(i) = Drive_I Then AlreadyConnected = True
Next
For i = 0 To AllDrives.Count - 1 Step 2
If If AllDrives.Item(i) = Drive_O Then AlreadyConnected = True
Next
For i = 0 To AllDrives.Count - 1 Step 2
If If AllDrives.Item(i) = Drive_S Then AlreadyConnected = True
Next
For i = 0 To AllDrives.Count - 1 Step 2
If If AllDrives.Item(i) = Drive_T Then AlreadyConnected = True
Next