bitblt question

Hi,

Could some one please show me how to change this to use bitblt:

Code:

---

Private Sub timer1_Timer()
For l = 0 To NumOfSprites - 1
    imgSprite(l).Left = imgSprite(l).Left + SpriteSpeed(l)
    If imgSprite(l).Left > frmMain.ScaleWidth + (50) Then imgSprite(l).Left = 0 - imgSprite(l).Width
    If imgSprite(l).Left < (0 - imgSprite(l).Width - (50)) Then imgSprite(l).Left = frmMain.ScaleWidth
Next l
End Sub

---

It's part of a very basic game I wrote but I'm new to this and the graphics flicker.