Visual Basic.NET - Pasar parametros a un informe

Estoy intentando pasar unos parametros desde codigo a un informe que tengo y no hay manera de conseguirlo, siempre que ejecuto el informe me pide los parametros por teclado.
¿me puede ayudar alguien?

'TRASPASO DE PARAMETROS DESDE UNA APLICACION HACIA UN REPORTE EN CRYSTALREPORT
'******************************************************************

EN EL CRYTALREPORT SE DEBE AGREGAR EL CAMPO DEL PARAMETRO.

1.SELECCIONAR LA OPCION DE LA RAIZ "PARAMETER FIELDS" Y AGREGAR LOS CAMPOS DE PARAMETROS
QUE CORRESPONDEN A LAS VARIBLES QUE VAN A CONTENER EL VALOR A MOSTRAR.

2.LUEGO SELECCIONAR LA OPCION LLAMADA "FORMULA FIELDS" CON LOS CAMPOS DE FORMULA QUE
CONTENDRAN LOS CAMPOS DE PARAMETROS YA CREADOS EN EL PASO 1.

3.ARRASTRAR HACIA LA POSICIÓN QUE DESEAMOS DEL REPORTE EL CAMPO DE FORMULA QUE VAMOS A MOSTRAR.

EJEMPLO:

Private Sub btn_Imprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Imprimir.Click
Dim Listado As New frmListado()
Dim Reporte As New crMayorAnalitico()
Dim Reporte2 As New crMayorAnalitico2()

'Para imprimir parametros:
Dim pvCollection As New CrystalDecisions.Shared.ParameterValues()
Dim pdvString1 As New CrystalDecisions.Shared.ParameterDiscreteValue()

pvCollection.Clear()
pdvString1.Value = var_TipoS
pvCollection.Add(pdvString1)
Reporte.DataDefinition.ParameterFields("var_TipoS").ApplyCurrentValues(pvCollection)

pvCollection.Clear()
pdvString1.Value = var_GrupoS
pvCollection.Add(pdvString1)
Reporte.DataDefinition.ParameterFields("var_GrupoS").ApplyCurrentValues(pvCollection)

y asi con cuanto parametros desees pasar

'********************************
Listado.ShowDialog()
End Sub

Sabes la forma de pasar un valor a una formula desde un formulario a un reporte con crystal, te agradeceria la ayuda.

Mas arriba de este mensaje donde dice parametros en crystal, hay unas instrucciones de como pasar parametros, intentalo