Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

ByVal and ByRef

Private Sub Main()     Dim num1 As Integer     Dim num2 As Integer     num1 = 10     num2 = 15     Call passByRef(num1)     Call passByVal(num2)     MsgBox (num1 & "  " & num2) End Sub Private Sub passByRef(ByRef num3 As Integer)     num3 = 20 End Sub Private Sub passByVal(ByVal num2 As Integer)     num2 = 20 End Sub