Form lukker af sig selv

det var da en noget underlig kode du har. Troede at goto sidst blev set tilbage i batscripts, og sidenhen blevet udryddet.

Application.Run burde også ligge ude i en Shared Sub Main

Okay, hvis jeg laver skriver en Shared Sub Main siger den, at Methods in a Module cannot be declared 'Shared'.

Skal måske sige at jeg kommer fra VB6, så er langt fra inde i .NET - må jeg evt. spørge hvordan du ville have lavet det ?

Har ændte min kode så den ser sådan her ud:

    Public Shared Sub Main(ByVal args As String())

        Dim f_login As New f_login

        objSqlConn.ConnectionString = "xxx"
        objSqlConn.Open()

        f_login.ShowLoginDialog()
        f_login.Dispose()

        Do While intLocationId = 0

            LoadLocation()

            If intLocationId = 0 Then  'No Location were loaded!
                Dim f_OptionsLocation As New f_options_location
                f_OptionsLocation.SelectLocation(f_options_location.SelectLocationMode.MustSelect)
                f_OptionsLocation.Dispose()
            End If

        Loop

        MsgBox("say ehat")
        Application.Run(New f_menu)

        objSqlConn.Close()

    End Sub
Men det virker stadig kun, hvis der vises en MsgBox - why ???

hvordan compiler du din exe-fil?

hmm... well.. lader til at være rimelig store forskelle på c# og vb.net på dette punkt. Har lige prøvet at lave en windows-applikation i vs til vb.net, og den giver mig følgende kode:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(192, 64)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(64, 40)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

End Class

Den kode har jeg også, men det er jo bare noget Visual Studio selv genererer når du designer dine forme - men jeg har et class, c_main, hvor Sub Main er i. Mit project er sat til at starte med Sub Main

Jeg compiler med VB.NETs indbygget compiler, det er en Windows Application

men som du kan se er der ingen steder i koden hvor at Application.Run direkte bliver kaldt.

Nej, men det er jo fordi du har sat din Form1 som Startup Object (det er standard ved den første form) - Mit problem er, at jeg skal gennemløbe noget kode, før den første form vises...

hm... så er spørgsmålet om det kan lade sig gøre i vb.net. Din fremgangsmåde er den der bruges i C#, men grundet kompabilitet med vb6 er der mange ting der virker noget bizarre i vb.net :/

heh, det jo det...