Claro.. Asi es Gracias.. no lo habia notado.
La solucion es ShowDialog
Pondré el codigo completo para el que lo necesite.
Código:
Dim frm As frmaddContacto
frm = New frmaddContacto
frm.Parametro1 = "valor"
frm.Parametro2 = 10
frm.ShowDialog()
x = frm.Parametro1
y = frm.Parametro2
frm = Nothing
