Imports Microsoft.VisualBasic 
Imports System
Public Class TestClass
	Public Function Test() As double
		'Begin Code
			Dim a As double
			Randomize (234.23)
			a = Rnd()
			Return a
		'End Code
	End Function
End Class