Private Sub UserForm_Initialize()
 
With CheckBox1
    .GroupName = "Frame2"
    .Value = True
    Image1.Picture = ImageList1.ListImages(1).Picture
End With
With CheckBox2
    .GroupName = "Frame2"
    .Value = True
    Image1.Picture = ImageList1.ListImages(1).Picture
End With
 
With Image1
    .BorderStyle = fmBorderStyleNone
    .PictureSizeMode = fmPictureSizeModeZoom
    .PictureAlignment = fmPictureAlignmentCenter
End With
 
If CheckBox1.Value = False Then
    Image1.Picture = ImageList1.ListImages(2).Picture
End If
If CheckBox2.Value = False Then
    Image1.Picture = ImageList1.ListImages(3).Picture
End If
End Sub

VG

Dirk