How to make dot on picture when you click on it

[Marc Burmeister]

How do you make a dot on the spot you click on a picture? Like a red spot of blood for shooting games?

[MrShickadance]

try this:

Private Sub Pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Pic.PSet (X, Y), vbRed  '' this is too small  you should use circle.

End Sub

[V(ery) Basic]

This would make the the circle (with an 'X' in it for some
strange reason):

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 1 To 30 'Vary the 30 to change circle size 
    Picture1.Circle (X, Y), i, vbRed
Next:
End Sub

Hope it helps,

Me

[Edited by V(ery) Basic on 04-15-2000 at 05:00 AM]