İşte size basit ama cok kullanışlı bir kod... ComboBox �ta otomatik tamamlama.....Yapmanız gereken tek şey forma Combo1 adında bir ComboBox ve Command1 adında Command button eklemek ve aşağıdaki kodu yapıştırmak

Option Explicit
Dim X As Boolean

Private Sub Command1_Click()
If Combo1.Text "" Then Combo1.AddItem Combo1.Text
End Sub

Private Sub Form_Load()
Combo1.Text = "Lutfen Bulunduğunuz İli Yazın"
Command1.Caption=�Ekle�
With Combo1
.AddItem "Adana"
.AddItem "Mersin"
.AddItem "Tokat"
.AddItem "Antalya"
.AddItem "İstanbul"
.AddItem "İcel"
.AddItem "Konya"
.AddItem "KahramanMaraş"
End With
End Sub

Private Sub combo1_KeyDown(basim As Integer, Shift As Integer)
If basim = vbKeyBack Or basim = vbKeyDelete Then
If Combo1.Text "" Then
X = True
End If
End If
End Sub

Private Sub combo1_Change()
Dim i As Long
Dim nSel As Long
If X = True Or Combo1.Text = "" Then
X = False
Exit If

For i = 0 To Combo1.ListCount - 1
If InStr(1, Combo1.List(i), Combo1.Text, _
vbTextCompare) = 1 Then
nSel = Combo1.SelStart
Combo1.Text = Combo1.List(i)
Combo1.SelStart = nSel
Combo1.SelLength = Len(Combo1.Text) - nSel
Exit For
End If
Next
End Sub
__________________