Ola pessoal,quero clicar 2 duas vezes em um cliente da list do form "HistoricoOS" e abrir o form Contasreceber com o cliente selecionado,não to conseguindo.
https://dl.dropboxusercontent.com/u/90217826/Osteste%20OK.rar
Function RetValor()
Dim varTotal As Currency
Dim varRow As Integer
For varRow = 1 To (lstDivida.ListCount - 1)
varTotal = varTotal + lstDivida.Column(6, varRow)
Next
txtValorDivida = varTotal 'E essa caixa de texto que deve receber o valor
End Function