[VB6] Fare una specie di msgbox

[xegallo]

form1

private sub command1_click()
dim answer as variant
   answer = SimulaMsgBox (form2)
end sub

form2(msgbox)

'quello che deve fare
'memorizzi in risposta

modulo

function SimulaMsgBox(formMessagebox as form) As variant
Public risposta as variant
   formMessagebox.show
   SimulaMsgBox = risposta
end function