Private Sub ListBox1_Change()
    For iCount& = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(iCount&) = True Then
           MsgBox "Выбрано : " & ListBox1.List(iCount&) 'Column1
           MsgBox "Выбрано : " & ListBox1.List(iCount&, 0) 'Column1
           MsgBox "Выбрано : " & ListBox1.List(iCount&, 1) 'Column2
        End If
    Next
End Sub

Private Sub ListBox1_Change()
    With ListBox1
         For iCount& = 0 To .ListCount - 1
             If .Selected(iCount&) = True Then
                MsgBox "Выбрано : " & .Column(0, iCount&) 'Column1
                MsgBox "Выбрано : " & .Column(1, iCount&) 'Column2
             End If
         Next
    End With
End Sub

Private iMassiv As Variant

Private Sub CheckBox1_Click()
    With ListBox1
         If CheckBox1.Value = True Then
            For iCount& = .ListCount - 1 To 0 Step -1
                If Not .Selected(iCount&) Then .RemoveItem iCount&
            Next
         Else
            .List = iMassiv
         End If
    End With
End Sub

Private Sub UserForm_Initialize()
    iMassiv = [A2:A17]: ListBox1.List = iMassiv
End Sub

Private Sub CheckBox1_Click()
    With ListBox1
         If CheckBox1.Value = True Then
            ListBox2.Clear
            For iCount& = 0 To .ListCount - 1
                If .Selected(iCount&) = True Then _
                   ListBox2.AddItem .List(iCount&)
            Next
         End If
         ListBox2.Visible = CheckBox1.Value
    End With
End Sub

Private Sub UserForm_Initialize()
    ListBox1.List = [A2:A17].Value
End Sub

Private Sub UniqueItems()
    With Me.ComboBox1 'ListBox1
         iMassiv = .List
         For iCount& = .ListCount - 1 To 0 Step -1
             If iCount& <> Application.Match(iMassiv( _
             iCount&, 0), iMassiv, 0) - 1 Then .RemoveItem iCount&
         Next
    End With
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets(1).Range("A1:E100")         
         iPercent# = (Me.ListBox1.Width * 0.95) / .Columns.Width
         Dim iColumn As Range
         For Each iColumn In .Columns
             iWidth$ = iWidth$ & ";" & Fix(iColumn.Width * iPercent#)
         Next
         Me.ListBox1.List = .Resize(.Rows.Count - 1).Offset(1).Value
         Me.ListBox1.ColumnCount = .Columns.Count
         Me.ListBox1.ColumnWidths = Mid(iWidth$, 2)
    End With
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets(1).Range("A1:E100")         
         iPercent# = .Columns.Width / (Me.ListBox1.Width * 0.95)
         Dim iColumn As Range
         For Each iColumn In .Columns
             iWidth$ = iWidth$ & ";" & Fix(iColumn.Width / iPercent#)
         Next
         Me.ListBox1.RowSource =  _
         .Resize(.Rows.Count - 1).Offset(1).Address(External:=True)
         Me.ListBox1.ColumnHeads = True
         Me.ListBox1.ColumnCount = .Columns.Count
         Me.ListBox1.ColumnWidths = Mid(iWidth$, 2)
    End With
End Sub

Private Sub CommandButton1_Click() 'Вверх
    ExchangeItems ListBox1, 1
End Sub

Private Sub CommandButton2_Click() 'Вниз
    ExchangeItems ListBox1, -1
End Sub

Private Sub ExchangeItems(ListBox As MSForms.ListBox, Step As Integer)
    Dim iSelIndex As Long
    Dim iColumn   As Long
    Dim iValue As Variant
    With ListBox
         iSelIndex = .ListIndex - Step
         For iColumn = 0 To .ColumnCount - 1
             iValue = .List(iSelIndex, iColumn)
             .List(iSelIndex, iColumn) = _
             .List(iSelIndex + Step, iColumn)
             .List(iSelIndex + Step, iColumn) = iValue
         Next
         .ListIndex = iSelIndex '.Selected(iSelIndex) = True
    End With
End Sub