Private Declare Function GetTickCount Lib "kernel32" () As Long


Private Sub Command1_Click()

    Dim K As Integer
    Dim R As Long

    R = GetTickCount()

    With Picture1
        For K = 1 To 1000
            .Picture = LoadPicture("C:\hare.gif")
        Next K
    End With

    Label1.Caption = GetTickCount() - R

End Sub

Private Sub Command2_Click()

    Dim K As Integer
    Dim R As Long

    R = GetTickCount()

    With Picture1
        For K = 1 To 1000
            .Picture = Image1.Picture
        Next K
    End With

    Label2.Caption = GetTickCount() - R

End Sub