Option Explicit
Private Sub Command1_Click()
Dim n As String
n = InputBox("Enter the new citi name")
Combo1.AddItem (n)
End Sub
Private Sub Command2_Click()
Combo1.RemoveItem (Combo1.ListIndex)
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Combo1.AddItem ("pune")
Combo1.AddItem ("mumbai")
Combo1.AddItem ("nanded")
End Sub