All pastes #984358 Raw Edit

Untitled

public text v1 · immutable
·published 2008-04-14 03:55 UTC
rendered paste body
<DebuggerStepThrough> _
Public Sub New()
    MyBase.New(AuthenticationMode.Windows)
    Me.IsSingleInstance = False
    Me.EnableVisualStyles = True
    Me.SaveMySettingsOnExit = True
    Me.ShutdownStyle = ShutdownMode.AfterMainFormCloses
End Sub

 

 
<STAThread, EditorBrowsable(EditorBrowsableState.Advanced), DebuggerHidden> _
Friend Shared Sub Main(ByVal Args As String())
    Try 
        Application.SetCompatibleTextRenderingDefault(WindowsFormsApplicationBase.UseCompatibleTextRendering)
    End Try
    MyProject.Application.Run(Args)
End Sub

 

 
<DebuggerStepThrough> _
Protected Overrides Sub OnCreateMainForm()
    Me.MainForm = MyProject.Forms.Form1
End Sub