Ayuda con Setfocus

Lya
13 de Julio del 2004
Estoy manejando este codigo , pero no me esta haciendo el ultimo setfocus alguien me puede explicar !

Gracias
Private Sub lstCliente_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Set lstCliente.SelectedItem = lstCliente.ListItems(1)
lstCliente.SortKey = ColumnHeader.Index - 1
lstCliente.Sorted = True
lblSearch = "Busqueda Por: " & ColumnHeader.Text
lblSearch.Tag = ColumnHeader.Index
txtSearch.Text = ""
txtSearch.SetFocus
End sub

Solid Snake
13 de Julio del 2004
SI siempre que termina este proceso debe terminar en el text colocalo fuera de ese proceso el set focus

Saludos