Web Site Devloped By Abhishek Mishra
Tech. Help By Anand Mishra
Contact no. 9425355631

Powerd by Shree Guru Kripa Computer

vb.net_BYREFRENCE_ARGUMENT program


This is vb.net_BYREFRENCE_ARGUMENT Program.

Public Class Form1
Dim N, C As Int16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
N = 5
C = CUBE(N)
MsgBox("C :" & C)
MsgBox("N : " & N)
End Sub

Function CUBE(ByRef X As Int16) As Int16
Dim Y As Int16
Y = X * X * X
X = 0
Return Y
End Function
End Class