Move item between listboxes

[treeger15]

I am having a very difficult time getting these items to be removed from the original listbox once i transfer them to another.
I've tried different things but this is the closest I can get without an error. It involves no removing.

Private Sub BTN_NotInGAIT_Click()


    Dim i                     As Long
    Dim j                     As Long


    NIGlbx.ColumnCount = CClbx.ColumnCount
    For i = 0 To CClbx.ListCount - 1
        If CClbx.Selected(i) Then
            With NIGlbx
                .AddItem
                For j = 0 To .ColumnCount - 1
                    .List(.ListCount - 1, j) = CClbx.List(i, j)
                Next j
               
            End With
        End If
    Next i
End Sub

Thank you