Deftype
Gosub
Imp
Let
Set
On...GoSub
On...GoTo
Option Base
Option Private
Type

Not Applicable

		
		
x = ATN(5)
x = ABS(-5)
x = COS(5)
x = LOG(5)
x = ROUND(5.5)
x = SIGN(-5)
x = SIN(5)
x = SQRT(4)

Imports System.Math

x = ATAN(5)
x = ABS(-5)
x = COS(5)
x = LOG(5)
x = ROUND(5.5)
x = SIGN(-5)
x = SIN(5)
x = SQRT(4)

Name "File.dat" as "File2.dat"
Chdir ".."
Chdrive "A"
FileCopy "C:\temp\net\diff.vb","C:\temp\Net\Diff.vb2"
Kill "C:\temp\Document.dat"
strText=Instr(strText,"Name")
strText=Lcase("name")
strText=LTrim("   Name")
strText=mid(strText,5) & strText=Right(strText,5) & strText=Left(strText,5))
lngText=Len(strText))
Mkdir "C:\temp\New"
Rmdir "C:\temp\New"
strText=Oct(94)
strText=trim(strText)
strText=Ucase(strText)

While condition = True
Wend

Rename("File.dat","File2.dat")
Chdir("..")
Chdrive("A")
FileCopy("C:\temp\net\diff.vb","C:\temp\Net\Diff.vb2")
Kill("C:\temp\Document.dat")
strText=Instr(strText,"Name")
strText=Lcase("name")
strText=LTrim("   Name")
strText=(strText.substring(1,5))
lngText=Len(strText))
Mkdir("C:\temp\New")
Rmdir("C:\temp\New")
strText=Oct(94)
strText=trim(strText)
strText=Ucase(strText)

While condition = True
End While