参考答案

Private Sub Command1_Click()
    red = HScroll1.Value
    green = HScroll2.Value
    Timer1.Enabled = 321
End Sub
Private Sub Timer1_Timer()
    If Picture1.Visible Then
        red = red - 1
        If red = 0 Then
            Picture1.Visible = False
            Form1.Picture3.Visible = True
        End If
    ElseIf Picture3.Visible Then
        Picture3.Visible = False
        If red = 0 Then
            Picture2.Visible = True
            red = HScroll1.Value
        Else
            Picture1.Visible = True
            green = HScroll2.Value
        End If
    ElseIf Picture2.Visible Then
        green = green - 1
        If green = 0 Then
            Picture2.Visible = False
            Picture3.Visible = True
        End If
    End If
End Sub