FUNCAO RETORNAR 2 VALORES

USUARIO.EXCLUIDOS 26/04/2004 23:27:23
#22806 Resposta escolhida

Ou assim,
Public Function Rafael_Urb (varialve as string, retorno as string, retorno1 as string) as ...
Retorno = "..."
Retorno1 = "......"
End Function

Como a passagem de parametros padrão é por referencia vc pode alterar o conteudo das variaveis passados para a função !

USUARIO.EXCLUIDOS 26/04/2004 23:50:59
#22810

Da forma que te passei ficaria assim:

Private Sub Form_Load()
Dim ret1 as string
Dim ret2 as string
Dim retorno as boolean

retorno = suaFuncao(ret1, ret2)
'Apos a execução da função as variarevies ret1 e ret2 estarão com os
' valores: ret1="a" e ret2="b".
End Sub


Public Function suaFuncao ( retorno as string, retorno1 as string) as boolean
Retorno = "a"
Retorno1 = "b"
suaFuncao = True
End Function