Textbox que permite sólo Letras en Vb.Net 05

Como en el ejemplo de solo números este código lo colocamos en el evento KeyPress de nuestras cajas de texto

If Char.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

y así tenemos solo texto en nuestras cajas de texto

nos vemos

Textbox que permite sólo Números en Vb.Net 05

Este código lo colocamos en el evento Keypress de nuestras cajas de texto que queremos que sean únicamente numéricas.

If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

y de esa manera es se omiten las letras y si deseamos que se admita el cero para decimales lo hacemos de la siguiente manera:

If e.KeyChar = "." Then
e.Handled = False
exit sub
End If
If Char.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If

listo un pequeño ejemplo

Enviar parámetro a Reporting Services Vb.Net 05

Para enviar un parámetro  a Reporting Services primero hacemos un Imports  de Microsoft.Reporting.WebForms, agregamos un ReportViewer1 y  después de hacer esto  hacemos la llamada y también e incluímos los parámetros que vamos a enviar de la siguiente manera:

Private Sub Cargar()
Dim instance As New Microsoft.Reporting.WinForms.ReportParameter("Oficina", "01")
Dim instance1 As New Microsoft.Reporting.WinForms.ReportParameter("Fecha", "2004.01.01")
Dim instance2 As New Microsoft.Reporting.WinForms.ReportParameter("Ordenadopor", "01")
Dim prms(2) As Microsoft.Reporting.WinForms.ReportParameter
prms(0) = instance
prms(1) = instance1
prms(2) = instance2
ReportViewer1.ServerReport.ReportServerUrl = New Uri("https://www.geoavila.com/ReportServer/")
ReportViewer1.ServerReport.ReportPath = "/Report Project2/rpt_balance_antiguedad"
ReportViewer1.ServerReport.SetParameters(prms)
ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Remote
ReportViewer1.RefreshReport()
End Sub

Private Sub CmdVer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdVer.Click
Cargar()
End Sub

De esta manera podremos visualizar un reporte en un Winforms.

nos vemos.