Visual Basic

<br />
        Dim mycon As New SqlConnection(conString)<br />
<br />
        Dim SQLConn As New SqlConnection() 'The SQL Connection<br />
        Dim SQLCmd As New SqlCommand() 'The SQL Command<br />
<br />
        SQLConn.ConnectionString = myconnection 'Set the Connection String<br />
        SQLConn.Open() 'Open the connection<br />
<br />
        SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command<br />
        SQLCmd.CommandText = SQLStr 'Sets the SQL String<br />
        SQLCmd.CommandTimeout = 60<br />
<br />
<br />
        SQLCmd.ExecuteNonQuery() 'Executes SQL Commands Non-Querys only<br />
<br />
        SQLConn.Close() 'Close the connection <br />
        mycon.Close()<br />
        Console.WriteLine("Connection Closed")<br />

[STAThread()]
static void Main(string[] args)
{
   Console.WriteLine("Hit a key: ");
   Console.ReadKey();

   System.Windows.Forms.Form frm = new System.Windows.Forms.Form() { Text = "Test" };

   System.Windows.Forms.Application.Run(frm);
}

Module Module1

    Sub Main()

        Dim inputString As String = String.Empty

        Do While inputString.Equals(String.Empty)

            Console.Clear()
            Console.Out.Write("Press the Y key to continue...")

            inputString = Console.ReadLine
            inputString = inputString.ToUpper

            If inputString.StartsWith("Y") Then

                Dim xForm As New Form1
                xForm.ShowDialog()

            End If

            inputString = String.Empty

        Loop

    End Sub

End Module

using System;
using System.IO;

namespace DeleteTempFiles
{
    class Program
    {
        static void Main(string[] args)
        {
            DirectoryInfo di = new DirectoryInfo(AppDomain.CurrentDomain.BaseDirectory);
            FileInfo[] rgFiles = di.GetFiles("*.tmp");
            foreach (FileInfo fi in rgFiles)
            {
                fi.Delete();
            }
        }
    }
}

Dim DeleteTempFiles<br />
    DeleteTempFiles = Shell(App.Path & "\DeleteTempFiles.exe")