Visual Basic

Dim b As Integer = 23
ModifySomething(b)
Debug.WriteLine("The value of b is: " & b.ToString())

Private Sub ModifySomething(ByRef someInt As Integer)
    someInt = 99
End Sub

-----8<------------------------------------------------

Output:
The value of b is: 99

Public Class Form1
   Private Function SaveObject()
          Object.Save()
   End Private
End Class

Public Class Object
    ' ... members, properties and constructors ...

    Public Property DataID as Integer
          ' ... Get and Set the DataID
    End Property

    Public Sub Save()
       Dim DataSaver as New ObjectDataLogic
       DataSaver.Save(Me)
    End Sub
End Class

Public Class ObjectDataLogic
    ' ... members, properties and constructors ...
    Public Sub Save(ByRef Object as Object)
        ' ... save to the database and return get the new ID
        Object.DataID = NewID   
    End Public     
End Class

AcroRd32.exe  /p /h "%1"

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_REMOTESESSION As Long = &H1000
 
Dim rc As Long
 
rc = GetSystemMetrics( SM_REMOTESESSION )
If rc <> 0 Then
    ' This session is running on Terminal Services.
Else
    ' This session is NOT running on Terminal Services.
End If