How about using the Position Property to move the column to the first position:


VB Code:
  1. Private Sub Command1_Click()

  2.     ListView1.ColumnHeaders.Item(3).Position = 1

  3. End Sub