basta che usi il metodo
Public Class Form1
Public Shared nuovo As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
nuovo = IDTextBox.Text
Public Class Form2
Form2.ParametroIDCliente = IDTextBox.Text
Form2.Show()
End If
End Sub
Private m_ParametroIDCliente As Long
Public WriteOnly Property ParametroIDCliente() As Long
Set(ByVal value As Long)
m_ParametroIDCliente = value
End Set
End Property
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.xxxxxxxTableAdapter.FillBy(Me.CLIENTEDataSet.xx xxxxx, Me.m_ParametroIDCliente)
End Sub

Rispondi quotando