How to make dot on picture when you click on it

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

try this:

Code:

---


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

---

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

Code:

---

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]