Imports System.Runtime.InteropServices
Module starten
    ' Windows 2003 Fix by planetX for all 2003 Users
    ' www.det-pack.de
    ' coderx@det-pack.de
    Public Sub Main()
        Application.EnableVisualStyles()
        ResetFPCR()
        Dim login As New login
        Dim main As New main
        Application.Run(login)
        Application.Run(main)
    End Sub
 
 
        <DllImport("msvcr70.dll", _
                   CallingConvention:=CallingConvention.Cdecl)> _
        Function _controlfp(ByVal n As Integer, ByVal mask As Integer) _
                 As Integer
        End Function
 
        Public Sub ResetFPCR()
 
            _controlfp(&H9001F, &HFFFFF)
            '
        End Sub
    End Module