04-03-2007, 09:36 PM
Make sure you has this:
And the tmrPic (timer) set to interval for example 50.
Code:
Public Sub ItemEditorBltItem()
Call BitBlt(frmItemEditor.picPic.hdc, 0, 0, PIC_X, PIC_Y, frmItemEditor.picItems.hdc, 0, frmItemEditor.scrlPic.Value * PIC_Y, SRCCOPY)
End Sub
Private Sub tmrPic_Timer()
Call ItemEditorBltItem
End Sub
And the tmrPic (timer) set to interval for example 50.