How to draw in a picturebox in vb6 - vb6

Question

i have used loads of websites for this but none worked so i am hoping i could get a correct answer
i have tried this could any one tell me whats wrong with it:
Private sub Picture1_mouseDown
x = picture1.currentx
y = picture1.currenty
End sub
Private sub Picture1_MouseMove
If button = 1 then
line (picture1.currentx,picture1.currenty)-(x,y), _
QBColor(0)
End if
End sub
i have cut the Private sub Picture1_MouseMove,Mousedown() bits off because i am in a rush to finish

Answer 1

This one will draw a line, only slightly different from kurniliya's solution which draws points
Option Explicit
Private lastX As Single
Private lastY As Single
Private Sub Form_Load()
' no need to set this every time we move the mouse inside Picture1
Picture1.DrawWidth = 5
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (lastX, lastY)-(X, Y), vbBlue
End If
lastX = X
lastY = Y
End Sub

Answer 2

You draw a line on PictureBox control using its Line method:
Sub Line(Flags As Integer, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single, Color As Long)
Member of VB.PictureBox
Draws lines and rectangles on an object.
There isn't much to say about it, and it has already been covered in How do you draw a line dynamically in vb6?
You seem to have trouble with writing event handlers though. If you don't know/remember the signature, IDE is always there to assist. Check out Assigning Code to a Control to Respond to an Event in VB6 tutorial.
There is the code to help you get started with drawing. Picture1 is PictureBox control. Blue line will be drawn when you move your mouse over the picture box holding left mouse button down.
Option Explicit
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.DrawWidth = 5
Picture1.Line (X, Y)-(X, Y), vbBlue
End If
End Sub