Hi again,

I still have the same problem eventhough I reduced the arrays down to 50 instances.

What I have is the following:

* A sub main:

Option Explicit
Private Sub Main()

SplashScreen.Show ' Show the splash screen.

Call SurfForm.LoadData 'load form and its data

Unload SplashScreen
SurfForm.Show ' Show the main form and unload the splash screen.
End Sub

*Declarations in the SurfForm code:

Option Explicit

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Declare Function GetDesktopWindow Lib "User32" () As Long
Private Declare Function GetWindow Lib "User32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetParent Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowTextLength Lib "User32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetCapture Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "User32" () As Long
Private Declare Function GetCapture Lib "User32" () As Long

Private Const WM_CLOSE = &H10
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5

Private frmDet As ConfirmDialog
Private frmDet1 As ConfirmWithCanteenDialog
Private fFrmDetCol As New Collection
Private fFrmDetCol1 As New Collection

Dim licenceProbl As Boolean
Dim PCNbr As String
Dim reportErr As Boolean
Dim intMax As Long
Dim thatPath As String, thatPath1 As String, thatPath2 As String
Dim bAcked As Boolean ' send acknowledged
Dim FileN As Long
Dim UniqueID As Integer
Dim lclHost As String
Dim SerialNumber As Long
Dim msg As String, Title As String, Style As String
Dim blnState As Boolean
Dim scndState As Boolean
Dim fisrtCh1 As String
Dim fisrtCh2 As String
Dim fisrtCh3 As String
Private stopWatch() As New CStopWatch
Dim isClosed As Boolean
Dim homeP As String
Dim tempstr As String
Dim costsStr() As String
Dim pauseStat() As Boolean
Dim firstSecnd() As Boolean
Dim menuOrder() As Boolean
Dim haveStop() As Boolean
Dim costMode As String
Dim CLocale As CLocale1 'new object to get locale settings
Dim strSql As String
Dim dateSlsh1 As String
Dim myDbCon As New ADODB.Connection
Dim myDb As Database
Dim ConnectDB$
Dim MenuTable As DAO.Recordset
Dim OrdersTable As DAO.Recordset
Dim EventsTable As DAO.Recordset
Dim SessionsTable As DAO.Recordset
Dim ccyStr As String
Public ActivePrinter As EventVB.ApiPrinter
Public WithEvents apiLink As EventVB.APIFunctions

* And some functions I call in Load_Data:

Public Function LoadData()

Dim h As Integer

On Error GoTo ErrTrap

'Set apiLink = New EventVB.APIFunctions

reportErr = False
PCNbr = "0"

Call checkIsrunning 'checking the app is not already running
Call checkPSWD
Call CheckLcce
Call CheckCurr
Call CheckPC

SplashScreen.ProgressBar1.Max = (3 * CInt(PCNbr)) + 4

Call SplashScreen.UpdateStatus(0) 'updating splash screen progress bar
Call PopulateForm
Call SplashScreen.UpdateStatus(1 + CInt(PCNbr)) 'updating splash screen progress bar
Call CreateObjs
Call SplashScreen.UpdateStatus(2 + 2 * CInt(PCNbr)) 'updating splash screen progress bar
Call PopCurrBoxes
Call SplashScreen.UpdateStatus(3 + 3 * CInt(PCNbr)) 'updating splash screen progress bar
Call ActuaStations.ReduceStat(CInt(PCNbr))
Call SplashScreen.UpdateStatus(4 + 3 * CInt(PCNbr)) 'updating splash screen progress bar
'Call PrintDialog.SetActivePrinter 'activating the printer

ErrTrap:
If Err.Number <> 0 Then
Call SurfForm.insertIntoEvents(CStr(Format(Now, "mm/dd/yyyy hh:mm:ss")), CStr(0), Err.Description, Err.Number, "Svr-Srffm2")
End If
End Function

...and this is really bugging me. I use some dll I found on the net called EventVB.dll. Maybe this is the problem ???

Help please...!

Mike