Delete Button Code!

[Bob]

I want to put a delete button next to a listbox called "tbStableDescription"
What code would i use to delete its contents on that form?


Thanks in advance.........Bob Vance

 

[Guest]

To use the Key Press function (you could put it behind any other funtion if
you wanted

Private Sub tbStableDescription_KeyPress(KeyAscii As Integer)
If KeyCode = vbKeyDelete Then
On Error Resume Next
List1.RemoveItem List1.ListIndex
End If
End Sub


Hope this helps