Private Sub ListView1_ColumnClick( _
    ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    
  'lvwAscending ' orden ascendente
  'lvwDescending ' orden descendente
  
  With ListView1
       If .SortOrder = lvwAscending Then
          .SortOrder = lvwDescending
       Else
          .SortOrder = lvwAscending
       End If
       
       .Sorted = True
       ' columna por la cual se ordena
       '( en este caso hay una sola )
       .SortKey = 0
  End With
End Sub 

Private SkinOb As New SKINCRAFTERLib.SCSkin2


Private Sub Form_Initialize()

SkinOb.InitLicenKeys("SKINCRAFTER","SKINCRAFTER.COM",
"esupport@skincrafter.com","DEMOSKINCRAFTERLICENCE")
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1

End Sub

Private Sub Form_Load()
SkinOb.LoadSkinFromFile App.Path & "\Skin.skf"
SkinOb.ApplySkin
End Sub