title: How to draw in a picturebox in vb6
body: <p>i have used loads of websites for this but none worked so i am hoping i could get a correct answer</p>
  
  <p>i have tried this could any one tell me whats wrong with it:</p>
  
  <pre><code>    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
  </code></pre>
  
  <p>i have cut the Private sub Picture1_MouseMove,Mousedown() bits off because i am in a rush to finish</p>