Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Dim sFile As String
      Dim sLicFile As String
      Dim bRet As Boolean
      Dim nResult As Long
 
      Static sPath As String
 
      bRet = sevLock_Init("xxx", "xxx", "xxx")
      ' mit Echtdaten liefert bRet ein True zurück. Damit sollte die 
      ' Initialisierung positiv sein.
      sFile = ""
 
      If Len(sPath) = 0 Then sPath = Application.StartupPath
 
      ' Datei-Auswahl-Dialog
      With OpenFileDialog1
         .Filter = "KeyFile (*.key)|*.key"
         .Title = "KeyFile einlesen"
         .InitialDirectory = sPath
         If .ShowDialog() = DialogResult.OK Then
            sFile = .FileName
         End If
      End With
 
      If Len(sFile) > 0 Then
         ' Pfad merken
         sPath = System.IO.Path.GetFullPath(sFile)
 
         ' KeyFile einlesen
         nResult = sevLock_ReadKeyFile(sFile, 0)
 
         If nResult <> 0 Then
            tbxCompany.Text = sevLock_GetUserData(eUserData.UserCompany)
            tbxAddress.Text = sevLock_GetUserData(eUserData.UserAddress)
            tbxPostalCodeCity.Text = sevLock_GetUserData( _
              eUserData.UserPostalcode) & " " & _
                                     sevLock_GetUserData(eUserData.UserCity)
            tbxKey.Text = sevLock_GetUserData(eUserData.UserKey)
         Else
            tbxKey.Text = "Keine Lizenzinformationen gefunden!"
         End If
         Me.Refresh()
      End If
   End Sub