Control Array Problem - Solved

[BaDDBLooD]

Private Sub Form_Unload(Cancel As Integer)
 
Dim varProduct1 As String, Selected As Integer, I As Integer
 
    For I = 0 To Product().Count - 1
    
    If Product(I).Value = Checked Then
    
        Select Case Product(I)
 
            Case 0
                varProduct1 = "STAR"
        
            Case 1
                varProduct1 = "SEXP"
        
            Case 2
                varProduct1 = "W2BN"
        
            Case 3
                varProduct1 = "D2DV"
        
            Case 4
                varProduct1 = "D2XP"
        
            Case 5
                varProduct1 = "WAR3"
        
            Case 6
                varProduct1 = "W3XP"
        
        End Select
    
    End If
    
    Next I
 
    WriteStuff "Main", "Username", txtUsername.text
    WriteStuff "Main", "Password", txtPassword.text
    WriteStuff "Main", "Home", txtHome.text
    WriteStuff "Main", "Server", txtServer.text
    WriteStuff "Main", "CDKey", txtCDKey.text
    WriteStuff "Main", "Cdkey2", txtCDKey2.text
    WriteStuff "Main", "Cdkey2", txtCDKey2.text
    WriteStuff "Main", "Product", varProduct1
    
End Sub

I have a array of Checkboxes, Product(x). X = 0,1,2,3,4,5

1) I want to be Able to Detect which Option is Displayed, and Give it a Name ( varProduct1 )

2) when i Click one Checkbox, the rest of the Checked Boxes Become Unchecked

THe Above code doesn't seem to be working, and i am not sure how to do #2