参考答案

Private Sub HScroll1_Change()
    Timer1.Interval = HScroll1.Value
End Sub
Private Sub Timer1_Timer()
    Image1.Visible = Not Image1.Visible
End Sub