О ComboBox'e. Как узнать, что выбрано?

Всем привет!!!
Люди, подскажите мне, пожалуйста, в чем дело. Мне нужно сделать так, чтобы пользователь в ComboBox'e выбрал цвет фона, а при нажатии на кнопку, менялся цвет, на тот, который выбран в комбо боксе. У меня получается так, что выбран всегда нулевой элемент.
Вот отрывок кода:
Dim X As String
Dim id As Integer
Dim idx As Integer

Private Sub Combo1_Change()
id = Combo1.ListIndex
End Sub

Private Sub Command1_Click()
If id = 0 Then X = &H8000000F
If id = 1 Then X = vbGreen
If id = 2 Then X = vbBlue
If id = 3 Then X = vborange
Form1.BackColor = X
Frame1.BackColor = X
Check1.BackColor = X
Check2.BackColor = X
Check3.BackColor = X
Label1.BackColor = X
Label2.BackColor = X
Label3.BackColor = X
Label4.BackColor = X
Label5.BackColor = X
Label6.BackColor = X
Option1.BackColor = X
Option2.BackColor = X
Option3.BackColor = X
MsgBox id (не зависимо от того, что выбрано, id всегда равно 0)
End Sub

Если Вам удобнее работать с полным файлом, то его можно скачать здесь (это самораспоковывающийся архив)

Всем зарание спасибо.