Drag And Drop Icon Help!

[Pikachu_902]

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:

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!!

[Joacim Andersson]

Where do you have coinsin declared?

[oetje]

Change your code to this:

Private Sub hhh_DragDrop(Source As Control, X As Single, Y As Single)
Static coinsin As Integer
coinsin = coinsin + 1
Label3.Caption = "Coins In:" & coinsin
End Sub

This should solve the problem.

[Pikachu_902]

that doesnt work

[oetje]

Strange, it works fine for me. Can you give me some more code, maybe there's a bug somewhere.

[Pikachu_902]

I figured it out thanks!