Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1000000
MsgBox "Buscaaaaaaaaaaaaaaaa"
Next i
End Sub

Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    MsgBox List1.List(i)
Next i
End Sub
 
Private Sub Form_Load()
With List1
    .AddItem "seba"
    .AddItem "jose"
    .AddItem "pedro"
End With
End Sub

Private Sub ListView1_ColumnClick( _
    ByVal ColumnHeader As MSComctlLib.ColumnHeader)
 
Select Case ColumnHeader.Index
 
Case 1
 
With listview
If .SortOrder = lvwAscending Then
.SortOrder = lvwDescending
Else
.SortOrder = lvwAscending
End If
.SortKey = ColumnHeader.Index - 1
.Sorted = True
End With
 
Case 2....
 
Case 3....
 
End Select
End Sub

Private Declare Function ShellExecute Lib "Shell32.Dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal pOperation As String, ByVal pFile As String, ByVal pParameters As String, ByVal pdirectory As String, ByVal nShowCmd As Long) As Long
 
 
Private Sub Command1_Click()
Dim X As Long
X = ShellExecute(Me.hWnd, "open", "C:\Brillantschildren\Suma.pps", vbNullString, vbNullString, 1)
End Sub