o meu está assim
Private Sub lvFind_AfterLabelEdit(Cancel As Integer, NewString As String)
End Sub
Private Sub lvFind_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
'Reordena em ordem Ascendente de acordo com a coluna clicada
lvFind.SortKey = ColumnHeader.Index - 1
lvFind.Sorted = True
End Sub
Private Sub lvFind_DblClick()
Edita
End Sub
Private Sub lvFind_ItemClick(ByVal Item As ComctlLib.ListItem)
'Coloca Campos Chave na Barra de Status
stBar.Panels("key_1").Text = Left$(Item.Key, 4)
stBar.Panels("key_2").Text = Item.Text
'Atualiza Comandos
With tbCommand.Buttons
.Item(1).Enabled = True
.Item(3).Enabled = True
.Item(4).Enabled = True
.Item(5).Enabled = True
.Item(7).Enabled = False
.Item(8).Enabled = False
.Item(11).Enabled = True
End With
'Coloca Figura Correspondente à operação na barra de Status
Set stBar.Panels.Item(3).Picture = imgIcons(0).ListImages(3).Picture
End Sub
Private Sub lvFind_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then Edita
End Sub