Errors In Code - Add The Selected Items From Checkedlistbox1 To Listbox7 (but Not Remove Them All Together)

This is my

If CheckedListBox1.SelectedItem IsNot Nothing Then
MsgBox("Your favourites have been saved")
ListBox7.Items.AddRange(CheckedListBox1.CheckedItems)
End If
End Sub

What i want it to do is to add the selected items from checkedlistbox1 to listbox7 (but not remove them all together)

This is my error: Overload resolution failed because no accessible 'AddRange' can be called with these arguments:

'Public Sub AddRange(items() As Object)': Value of type 'System.Windows.Forms.CheckedListBox.CheckedItemCollection' cannot be converted to '1-dimensional array of Object'.

[CODE]...