Option Explicit

Dim gerial As Boolean

Private Sub cmdEkle_Click()
If txtEkleme.Text <> "" Then ' eger txtekleme bos ise ekleme yapmasin
kombo.AddItem txtEkleme.Text
txtEkleme.Text = "" 'eklendikten sonra textbox'u temizle
End If
End Sub

Private Sub Form_Load()
'Burada item'lar ekleniyor
With kombo
.AddItem "cilek"
.AddItem "incir"
.AddItem "elma"
.AddItem "armut"
.AddItem "uzum"
.AddItem "karpuz"
.AddItem "seftali"
End With
End Sub

Private Sub kombo_KeyDown(basim As Integer, Shift As Integer)

If basim = vbKeyBack Or basim = vbKeyDelete Then
If kombo.Text <> "" Then
gerial = True
End If
End If

End Sub

Private Sub kombo_Change()

If gerial = True Or kombo.Text = "" Then
gerial = False
Exit Sub
End If

Dim i As Long
Dim nSel As Long

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