Sub Main() WriteLine("*************************") WriteLine("* .Net performance test *") WriteLine("*************************") WriteLine(" ") Dim FFile As Integer FFile = FreeFile() FileOpen(FFile, Application.StartupPath & "\Perf. Results (.Net).txt", OpenMode.Output, OpenAccess.Write) PrintLine(FFile, "This is the output results for the VB.Net speed trials...") WriteLine("Testing simple maths functions:") 'Dim I As Long 'For I = 0 To 19 SimpleMathsFunctions(FFile) 'Next I WriteLine("Testing simple memory manipulation techniques:") 'For I = 0 To 9 MemoryManipulation(FFile) 'Next I PrintLine(FFile, "Speed trials are complete...") FileClose(FFile) WriteLine("******************************") WriteLine("* All Tests Complete *") WriteLine("* Press {enter} to terminate *") WriteLine("******************************") Dim iRet As Integer = System.Console.Read End Sub ################################################################################################ NOTICE ANY SIMILARITIES BETWEEN THE ABOVE (original) CODE, AND THE DISASSEMBLED (from the .exe) VERSION BELOW??? ################################################################################################ .method public static void Main() cil managed { .entrypoint .custom instance void [mscorlib]System.STAThreadAttribute::.ctor() = ( 01 00 00 00 ) // Code size 211 (0xd3) .maxstack 6 .locals init (int32 V_0, int32 V_1, int32[] V_2, object[] V_3) IL_0000: ldstr "*************************" IL_0005: call void [mscorlib]System.Console::WriteLine(string) IL_000a: ldstr "* .Net performance test *" IL_000f: call void [mscorlib]System.Console::WriteLine(string) IL_0014: ldstr "*************************" IL_0019: call void [mscorlib]System.Console::WriteLine(string) IL_001e: ldstr " " IL_0023: call void [mscorlib]System.Console::WriteLine(string) IL_0028: call int32 [Microsoft.VisualBasic]Microsoft.VisualBasic.FileSystem::FreeFile() IL_002d: stloc.0 IL_002e: ldloc.0 IL_002f: call string [System.Windows.Forms]System.Windows.Forms.Application::get_StartupPath() IL_0034: ldstr "\\Perf. Results (.Net).txt" IL_0039: call string [mscorlib]System.String::Concat(string, string) IL_003e: ldc.i4.2 IL_003f: ldc.i4.2 IL_0040: ldc.i4.m1 IL_0041: ldc.i4.m1 IL_0042: call void [Microsoft.VisualBasic]Microsoft.VisualBasic.FileSystem::FileOpen(int32, string, valuetype [Microsoft.VisualBasic]Microsoft.VisualBasic.OpenMode, valuetype [Microsoft.VisualBasic]Microsoft.VisualBasic.OpenAccess, valuetype [Microsoft.VisualBasic]Microsoft.VisualBasic.OpenShare, int32) IL_0047: ldloc.0 IL_0048: ldc.i4.1 IL_0049: newarr [mscorlib]System.Object IL_004e: stloc.3 IL_004f: ldloc.3 IL_0050: ldc.i4.0 IL_0051: ldstr "This is the output results for the VB.Net speed tr" + "ials..." IL_0056: stelem.ref IL_0057: ldloc.3 IL_0058: call void [Microsoft.VisualBasic]Microsoft.VisualBasic.FileSystem::PrintLine(int32, object[]) IL_005d: ldstr "Testing simple maths functions:" IL_0062: call void [mscorlib]System.Console::WriteLine(string) IL_0067: ldloc.0 IL_0068: call void Console_Performance.Module1::SimpleMathsFunctions(int32) IL_006d: ldstr "Testing simple memory manipulation techniques:" IL_0072: call void [mscorlib]System.Console::WriteLine(string) IL_0077: ldloc.0 IL_0078: call void Console_Performance.Module1::MemoryManipulation(int32) IL_007d: ldloc.0 IL_007e: ldc.i4.1 IL_007f: newarr [mscorlib]System.Object IL_0084: stloc.3 IL_0085: ldloc.3 IL_0086: ldc.i4.0 IL_0087: ldstr "Speed trials are complete..." IL_008c: stelem.ref IL_008d: ldloc.3 IL_008e: call void [Microsoft.VisualBasic]Microsoft.VisualBasic.FileSystem::PrintLine(int32, object[]) IL_0093: ldc.i4.1 IL_0094: newarr [mscorlib]System.Int32 IL_0099: stloc.2 IL_009a: ldloc.2 IL_009b: ldc.i4.0 IL_009c: ldloc.0 IL_009d: stelem.i4 IL_009e: ldloc.2 IL_009f: call void [Microsoft.VisualBasic]Microsoft.VisualBasic.FileSystem::FileClose(int32[]) IL_00a4: ldstr "******************************" IL_00a9: call void [mscorlib]System.Console::WriteLine(string) IL_00ae: ldstr "* All Tests Complete *" IL_00b3: call void [mscorlib]System.Console::WriteLine(string) IL_00b8: ldstr "* Press {enter} to terminate *" IL_00bd: call void [mscorlib]System.Console::WriteLine(string) IL_00c2: ldstr "******************************" IL_00c7: call void [mscorlib]System.Console::WriteLine(string) IL_00cc: call int32 [mscorlib]System.Console::Read() IL_00d1: stloc.1 IL_00d2: ret } // end of method Module1::Main