Private Sub fSplash_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
    lblVersion.Text = "Version: " & My.Application.Info.Version.ToString
  End Sub
 
  Private Sub tmrInit_Tick(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles tmrInit.Tick
    Select Case tmrInit.Tag
      Case "Ressources"
        tmrInit.Interval = 200
        ProgBar.Value += 20
        tmrInit.Tag = "Loading"
        lblInfo.Text = "Precaching Ressources..."
        'Users.IniPfad = Application.StartupPath & ("\taOffice\Datenpfad.ini")
        Users.CompanyPfad = "f:\taOffice\"  ''<== hier tritt der Fehler auf
 
...end sub etc.pp. - unwichtig