I am making a slot machine game. well to put coins in you click on a money bag and drag it up to the coin slot. you can put up to 3 coins in. But I have a problem. When I put this in the destination control:

Code:
Private Sub hhh_DragDrop(Source As Control, X As Single, Y As Single)
coinsin = coinsin + 1
Label3.Caption = "Coins In:" & coinsin
End Sub
It displays one coin in but when you go to put more coins in it doesnt show!!! HELP!!