Pass Single by value and by reference to a Sub : Single « Data Type « VB.Net Tutorial

1. VB.Net Tutorial
2. Data Type
3. Single

public class Test
   public Shared Sub Main
        Dim value As Single
        value = 10
        DoubleItByVal(value)

        Console.WriteLine(value)
        value = 10

        DoubleItByRef(value)
        Console.WriteLine(value)

   End Sub

    Shared Sub DoubleItByVal(ByVal X As Single)
        X *= 2
    End Sub

    Shared Sub DoubleItByRef(ByRef X As Single)
        X *= 2
    End Sub

End class

10
20