Grafik in Zwischenablage

Private Sub UserForm_Activate()
Dim Dateiname As String
Select Case CommandBars.ActionControl.Tag
Case Is = "1"
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diarendvola0.gif"
Case Is = "2"
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diadiffrend0.gif"
End Select
Image1.Picture = LoadPicture(Dateiname)
End Sub

Ich möchte gerne über einen Button auf der Userform die dargestellte Grafik in die Zwischenablage legen.

Private Sub CommandButton4_Click()
' Button für Übernahme in Zwischenablage
Code ?
End Sub

Grüße
Norbert