Visual Basic

Class theClass
    Private a As Integer

    Public Sub New( ByVal inA As Integer )
        a = inA
    End Sub

    Public Sub doSomething( ByRef returnValue As Integer )
        returnValue = a
    End Sub
End Class

Dim b As New theClass( 25 )    ' Passed to the contructor ByVal
Dim i As Integer = 0
b.doSomething( i )             ' 'i' passed to doSomething ByRef
Debug.WriteLine( i.ToString() )

<br />
Class theClass    <br />
  Private a As Integer    <br />
  Public Sub New( ByRef inA As Integer )<br />
        a = inA    <br />
  End Sub    <br />
<br />
  Public Sub doSomething()<br />
        a = 5   <br />
  End Sub<br />
<br />
End Class<br />

<br />
Dim i as Integer = 1<br />
Dim b As New theClass( i )         ' Passed to the contructor as reference<br />
b.ShowDialog()                     ' User modifies value...should be 5 now...<br />
Debug.WriteLine( i.ToString() )    ' Expect to see 5, instead see 1.  <br />

Public Sub MyShowDialog(ByRef field1 As String, ByRef field2 As String, ByRef field3 As Integer, ... )
    If Me.ShowDialog() = DialogResult.OK Then          ' This is a blocking call so nothing will execute until this returns
        field1 = WhateverControl.Text()
        field2 = WhateverOtherControl1.Text()
        field3 = WhateverOtherControl2.Text()
        ...
        ...
    End If
End Sub

    Dim myData1 As String
    Dim myData2 As String
    Dim myData3 As Integer
    ...
    ...
 
    myDialog.MyShowDialog( myData1, myData2, myData3, ... )
    ' Now all your variable have their values...