Usar Nome Do Form No Module

[mestre fyoda]

Public Function Procurar( ByRef Formulario As Form) As String

        Dim item1 As ListViewItem = Nothing
        If Formulario.Lista.Items.Count > 0 Then
            item1 = Formulario.Lista.FindItemWithText("Rafael", False, 0, True)
            item1.Selected = True
            Formulario.Lista.EnsureVisible(item1.Index)
            Formulario.Lista.Focus()
        End If
        If (item1 Is Nothing) Then
            MsgBox("Ce début de texte n'existe pas !")
        End If

    End Function

Como eu faço para chamar essa função passando o parametro com o nome do formulario usando um keypress ?

A lista é o nome da ListView !

Editado Novembro 13, 2007 por mestre fyoda

[Graymalkin]

Como assim? O que você quer exatamente?

Abraços,

Graymalkin

[mestre fyoda]

queria fazer uma função para passar o nome do formulario e depois pesquisar dentro a listview e selecionar automaticamente a linha do cliente procurado !