Scambio Parametri tra vari Form

Public Property Let Password(ByVal vNewValue As String)
    strPassword=vNewValue
End Property

Public Property Get User() As String
    User=strUser
End Property

Public Property Let User(ByVal vNewValue As String)
    strUser=vNewValue
End Property

'Aggiungere poi un CommandButton sul Form1
'e inserire questo codice:
Private Sub Command1_Click()
    'Visualizzo il form per l'inserimento dello user
    'e della password
    Form2.Show vbModal
    Msgbox "User: " & me.user & " - Password: " & me.password
End Sub

'A questo punto, ammettendo che il Form2 (quello della
'password) abbia due TextBox (txtUser e txtPassword) ed
'un CommandButton, inserire questo codice nel Form2:
Private Sub Command1_Click()
    'Passo i valori al form chiamante:
    Form2.User=txtUser.text
    Form2.Password=txtPassword.text
End Sub

'Questo, e' il sistema piu' pulito per passare
'variabili tra form.

'nella sezione dichiarazioni del Form1:

Private strUser As String
Private strPassword As string
'Property per la password

Public Property Get Password() As String
Password=strPassword
End Property

Public Property Let Password(ByVal vNewValue As String)
strPassword=vNewValue
End Property

Public Property Get User() As String
User=strUser
End Property

Public Property Let User(ByVal vNewValue As String)
strUser=vNewValue
End Property

'Aggiungere poi un CommandButton sul Form1

'e inserire questo codice:

Private Sub Command1_Click()
'Visualizzo il form per l'inserimento dello user

'e della password

Form2.Show vbModal
Msgbox "User: " & me.user & " - Password: " & me.password
End Sub

'A questo punto, ammettendo che il Form2 (quello della

'password) abbia due TextBox (txtUser e txtPassword) ed

'un CommandButton, inserire questo codice nel Form2:

Private Sub Command1_Click()
'Passo i valori al form chiamante:

Form2.User=txtUser.text
Form2.Password=txtPassword.text
End Sub

'Questo, e' il sistema piu' pulito per passare

'variabili tra form.