Combobox Yerine SpineButton: Kodu Revize Etmek İçin Yardım

[BedriA]

Aşağıdaki kod ile Combobox'tan resim adı seçerek resimlere bakabiliyorum.
Ancak resimlere Spinbutton ile bakmak istiyorum. Kırmızı olan kod ile yapmaya çalıştım ama son resimden sonra hata veriyor. Uğraştım ama düzeltemedim.

Yardımcı olacak arkadaşlara şimdiden teşekkürler.

Private Sub ComboBox1_Change()
    rTemp = ThisWorkbook.Path & "\" & Me.ComboBox1.Text & ".jpg"
    SavePicture PictureFromObject(ActiveSheet.Shapes(Me.ComboBox1.Text)), rTemp
    Me.Image1.Picture = LoadPicture(rTemp)
    Dim rtime As Date
    rtime = DateAdd("s", 10, Now())
    Kill rTemp
End Sub

Revize edilecek kod:

[COLOR="Red"]Private Sub SpinButton1_Change()
 rTemp = ThisWorkbook.Path & "\" & Me.ComboBox1.Text & ".jpg"
GoTo hata
    SavePicture PictureFromObject(ActiveSheet.Shapes(Me.SpinButton1)), rTemp
    Me.Image1.Picture = LoadPicture(rTemp)
    Dim rtime As Date
    rtime = DateAdd("s", 10, Now())
    Kill rTemp
MsgBox "Son resime geldiniz."
End Sub[/COLOR]