Option Explicit
Public MyIniFile As String = "\WwEM.ini"
 
Public Sub Main()
  MyIniFile = App.Path & MyIniFile
  ' evtl. noch
  MyIniFile = Replace(MyIniFile, "\\", "\") ' falls es sich um das 
  ' Root-Verzeichnis handelt
  frmSplash.Show
End Sub

cu
JennyB
___________________________________________________________________
Some days are diamond - some days are stone ...