Formunuza 1 Button Ve 1 ComboBox Ekleyin..

Kodlar :
Kod:
Private Sub Command1_Click() If Combo1 = "kahverengi" Then Form1.BackColor = &H4080& End If If Combo1 = "sarı" Then Form1.BackColor = &HFFFF& End If If Combo1 = "mor" Then Form1.BackColor = &H800080 End If If Combo1 = "yeşil" Then Form1.BackColor = &HFF00& End If If Combo1 = "pembe" Then Form1.BackColor = &HFF00FF End If If Combo1 = "mavi" Then Form1.BackColor = &HFF0000 End If If Combo1 = "turuncu" Then Form1.BackColor = &H80FF& End If End Sub Private Sub Form_Load() Command1.Caption = "Renk Değiştir.." Combo1.AddItem "kahverengi" Combo1.AddItem "pembe" Combo1.AddItem "mavi" Combo1.AddItem "turuncu" Combo1.AddItem "yeşil" Combo1.AddItem "sarı" Combo1.AddItem "mor" End Sub

__________________