invalid parameter value on CreateSubscription

[run4ever_77]

Hi, I have to create one subscription via Vb.net for one simple report . Once i try to deploy this subsciprion the system returns this message: "rsInvalidParameter400Value of the parameter 'Parameters' is not valid.http://go.microsoft.com/fwlink/?LinkId=20476&EvtSrc=Microsoft.ReportingServices.Diagnostics.Utilities.ErrorStrings&EvtID=rsInvalidParameter&ProdName=Microsoft SQL Server Reporting Services&ProdVer=10.0.2531.0Microsoft SQL Server Reporting Services10.0.2531.0127OsIndependent1040ReportingServicesLibraryValues of parameter 'Parameters' is not valid." Here is the code i wrote for my report.

Dim RS As New ReportingService2005
RS.Credentials = System.Net.CredentialCache.DefaultCredentials
RS.Url = "HTTP://VIROSQL08/REPORTSERVER/REPORTSERVICE2005.ASMX"

Dim report As String = "/MYREPORTS/TEST\_REPORT"
Dim desc As String = "TEST SCHEDULE"
Dim eventType As String = "TimedSubscription"
Dim StartDateSchedule As String = Today.ToString("yyyy-MM-dd")
Dim StartClockSchedule As String = "09:27"

Dim scheduleXml As String = String.Format("<ScheduleDefinition><StartDateTime>{0}T{1}:00</StartDateTime></ScheduleDefinition>", StartDateSchedule, StartClockSchedule)

Dim extensionParams(7) As ParameterValue

extensionParams(0) = New ParameterValue()
extensionParams(0).Name = "TO"
extensionParams(0).Value = "CED@MYCOMPANY.COM"

extensionParams(1) = New ParameterValue()
extensionParams(1).Name = "ReplyTo"
extensionParams(1).Value = "reporting@adventure-works.com"

extensionParams(2) = New ParameterValue()
extensionParams(2).Name = "IncludeReport"
extensionParams(2).Value = "True"

extensionParams(3) = New ParameterValue()
extensionParams(3).Name = "RenderFormat"
extensionParams(3).Value = "EXCEL"

extensionParams(4) = New ParameterValue()
extensionParams(4).Name = "Subject"
extensionParams(4).Value = "@ReportName was executed at @ExecutionTime"

extensionParams(5) = New ParameterValue()
extensionParams(5).Name = "Comment"
extensionParams(5).Value = "TEST SCHEDULE"

extensionParams(6) = New ParameterValue()
extensionParams(6).Name = "IncludeLink"
extensionParams(6).Value = "False"

extensionParams(7) = New ParameterValue()
extensionParams(7).Name = "Priority"
extensionParams(7).Value = "NORMAL"

Dim parameter As New ParameterValue()
parameter.Name = "PARAM1"
parame