Option Explicit
Dim Handle As Long
Dim DataPath As String
 
Private Sub Form_Load()
  Dim Handle As Long
 
  ' DLL initialisieren
  Handle = sevKTO_Init("")
  If Handle = ERR_KTO_INIT_FAILURE Then
    ' Fehler während der Initialisierungsphase
    ' In diesem Fall können keine Funktionen 
    ' der DLL genutzt werden!    
  Else
    ' Datenpfad festlegen
    DataPath = App.Path & IIf(Right$(App.Path, 1) <> "\", _
      "\", "") & "BlzDaten\"
    sevKTO_BLZSetPath DataPath
  End If
End Sub