Я очень советую освоить этот метод. На форме оставляем все то что было.Меняем только код кнопки Поменять.Пишите :

Col = Combo1.Text-присваиваем переменной Col значение параметра Text элемента Combo1.

Select Case Col - проверяем значение переменной Col

присваиваем переменной Col значение параметра Text элемента Combo1. Если выбран Белый, то Col будет равен белый. Если вы не выбирали цвет, то Col будет равен Цвет.

Case "Белый" - если текстовая переменная Col равна тексту Белый, то ...

FCol = Qbcolor(15) - ...числовая переменная FCol равна числовому эквиваленту цвета номер 15 (то есть белому)

Case "Черный" - если текстовая переменная Col равна тексту Черный, то ...

FCol = Qbcolor(0) - ...числовая переменная FCol равна числовому эквиваленту цвета номер 0 (то есть черному)

Case "Серый" - если текстовая переменная Col равна тексту Серый, то ...

FCol = Qbcolor(7) - ...числовая переменная FCol равна числовому эквиваленту цвета номер 7 (то есть серому)

Case "Цвет" - если текстовая переменная Col равна тексту Цвет, то ...

Msgbox "Вы не выбрали цвет", vbCritical - сообщить о том что цвет не выбран.

End Select - заканчиваем проверку переменной Col

Form1.BackColor = FCol - придаем параметру BackColor элемента Form1 значение переменной FCol

В результате у вас должна получиться вот такая программа :

Option Explicit
Dim Col As String
Dim FCol As Long

Private Sub Command1_Click()
Col = Combo1.Text
Select Case Col
Case "Белый"
FCol = QBColor(15)
Case "Черный"
FCol = QBColor(0)
Case "Серый"
FCol = QBColor(7)
Case "Цвет"
MsgBox "Выберите цвет", vbCritical, "Ошибка"
End Select
Form1.BackColor = FCol
End Sub

Private Sub Command2_Click()
End
End Sub

Шаг №4 - Подведение итогов

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