求助！！紧急。。。请高手把这段C#写的程序改写成vb.net谢谢了。。在先等。。给加分

Question

Protected Function SetParameterFields()        Dim paramFields As ParameterFields = CrystalReportViewer1.ParameterFieldInfo
        Dim paramField As ParameterField = paramFields("院校参数")
        Dim curValues As ParameterValues = paramField.CurrentValues
        Dim discreteValue As ParameterDiscreteValue = New ParameterDiscreteValue
        discreteValue.Value = TextBox1.Text
        curValues.Add(discreteValue)
        CrystalReportViewer1.ParameterFieldInfo = paramFields
    End Function