How do you make a dot on the spot you click on a picture? Like a red spot of blood for shooting games?
Printable View
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):
Hope it helps,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
Me
[Edited by V(ery) Basic on 04-15-2000 at 05:00 AM]