skift image fra en userform til en anden.

Hej
Jeg har en UserForm1 med en masse Image kasser. Når man trykker på en skifter den billeder, f.eks. grøn, gul rød.
Vil nu lave en ny UserForm2 hvor man ved optionButton1 skal kunne skifte billedet i en image boks i UserForm1 f.eks. Sort.


min kode til den første er sådan her:
-------------------------------------
Private Sub Image33_Click()
skiftbillede3 33
End Sub
-------------------------------------
Private Sub skiftbillede(nr)
Dim knapObj As Control, picTureNavn As String, næsteNavn As String
    Set knapObj = UserForm1.Controls("image" & CStr(nr))
    picTureNavn = knapObj.Tag
   
    Select Case picTureNavn
       
        Case "Neutral"
            næsteNavn = "Morning"
       
       
        Case "Morning"
            næsteNavn = "Afternoon"
       
        Case "Afternoon"
            næsteNavn = "Evening"
           
        Case "Evning"
            næsteNavn = "Neutral"
           
           
   
    Case Else
        næsteNavn = "Neutral"
    End Select
   
    knapObj.Picture = LoadPicture(billedSti & næsteNavn & ".jpg")
   
    knapObj.Tag = næsteNavn
   
    UserForm1.Repaint
End Sub