Combobox problemer.

Jeg er ved at lave en combobox, det går bare ikke så godt...

Jeg kan godt nok få noget til at så i den, når jeg smide nedenstående i form_load()

Private Sub Form_Load()
login_adv.color_select.AddItem "256 Farver", 0
login_adv.color_select.AddItem "16 Bit farver", 1
login_adv.color_select.AddItem "24 Bit farver", 2
login_adv.color_select.AddItem "32 Bit farver", 3
End Sub

Mit problem er bare så at hente de data ud som brugeren vælger, jeg har pt følgende, men der virker ikke... =(

Private Sub color_select_Change()
Dim var_color As String
var_color = login_adv.color_select.Text

Select Case var_color
    Case "256 Farver"
    SaveSetting "LinuxTS", "options", "colorcount_tmp", "0"
    Case "16 Bit Farver"
    SaveSetting "LinuxTS", "options", "colorcount_tmp", "1"
    Case "24 Bit Farver"
    SaveSetting "LinuxTS", "options", "colorcount_tmp", "2"
    Case "32 Bit Farver"
    SaveSetting "LinuxTS", "options", "colorcount_tmp", "3"
End Select

Til sidst har jeg også problemer med at når brugeren vælger et punkt kan han faktisk bare markere den og slette det. Jeg ville gerne have at han kun har mulighed for at vælge dem uden at kunne redigere i lortet... Jeg har prøvet med locked=true, men så kan han jo ikke vælge noget som helst og så er vi jo lige langt..

Håber I kan hjælpe

Hygge

Esben