Try this
Code:
Private Sub lvwEngine_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        
    Dim j As Integer
    Dim c As String
    
    If Button = vbRightButton Then
        Clipboard.Clear
        
        c = ListView1.SelectedItem.Text & vbNewLine
        For j = 1 To ListView1.ColumnHeaders.Count - 1
            c = c & ListView1.SelectedItem.SubItems(j) & vbNewLine
        Next
        
        Clipboard.SetText c
    End If

End Sub
The main reason I use Microsoft Windows Common Control 5.0 (SP2) is because the progress bar shows a perfect line where as 6.0 the line is broken up with the bars which I don't like
You can change this by
Code:
ProgressBar1.Scrolling = ccScrollingSmooth