Private Sub sub_ShowMessage(ByVal nMsg As Long)
  Dim sPrompt As String
  Dim sTitle As String
  Dim nKeys As String
  Select Case nMsg
    Case 0&: '.. Fehler 0
       sPrompt = "..."
       nKeys = vbInformation + vbOKOnly
       sTitle = "..."
       '...
    Case 100&
       sPrompt = "OK, Aktiviert."
       nKeys = vbInformation + vbOKOnly
       sTitle = App.Title
 End Select
 MsgBox sPrompt, nKeys, sTitle
End Sub

Private Function f_sGetParameterFile(ByVal s_CMD As String) As String
  Dim nIdx As Long
  Dim asgCMDs() As String
  Dim nNumOfCMDs As Long
  Dim sData As String
  'Lizenzdatei im Parameter?
  f_sGetParameterFile = "Error"
  If Len(s_CMD) > 0 Then
    asgCMDs = Split(s_CMD, """")
    nNumOfCMDs = UBound(asgCMDs) + 1&
    For nIdx = 0 To nNumOfCMDs - 1&
      sData = asgCMDs(nIdx)
      asgCMDs(nIdx) = VB_Remove(sData, """")
      If InStr(UCase(asgCMDs(nIdx)), UCase(csg_KEYFILENAME)) > 0& Then
         f_sGetParameterFile = asgCMDs(nIdx)
         Exit For
       End If
    Next nIdx
 End If
End Function

Global Const OFN_ALLOWMULTISELECT As Long = &H200  
Global Const OFN_CREATEPROMPT As Long = &H2000     
Global Const OFN_EXPLORER As Long = &H80000         
Global Const OFN_EXTENSIONDIFFERENT As Long = &H400 
Global Const OFN_FILEMUSTEXIST As Long = &H1000     
Global Const OFN_HelpButton As Long = &H10          
Global Const OFN_HIDEREADONLY As Long = &H4           
Global Const OFN_LONGNAMES As Long = &H200000         
Global Const OFN_NOCHANGEDIR As Long = &H8            
Global Const OFN_NODEREFERENCELINKS As Long = &H100000
Global Const OFN_NOLONGNAMES As Long = &H40000    
Global Const OFN_NOREADONLYRETURN As Long = &H8000
Global Const OFN_NOVALIDATE As Long = &H100   
Global Const OFN_OVERWRITEPROMPT As Long = &H2
Global Const OFN_PATHMUSTEXIST As Long = &H800
Global Const OFN_READONLY As Long = &H1       
Global Const OFN_SHAREAWARE As Long = &H4000  
Global Const OFS_FILE_OPEN_FLAGS As Long = OFN_EXPLORER Or OFN_LONGNAMES Or _
  OFN_CREATEPROMPT Or OFN_NODEREFERENCELINKS
'Dateiauswahldialog
Type OPENFILENAME
  nStructSize     As Long
  hwndOwner       As Long
  hInstance       As Long
  sFilter         As String
  sCustomFilter   As String
  nCustFilterSize As Long
  nFilterIndex    As Long
  sFile           As String
  nFileSize       As Long
  sFileTitle      As String
  nTitleSize      As Long
  sInitDir        As String
  sDlgTitle       As String
  flags           As Long
  nFileOffset     As Integer
  nFileExt        As Integer
  sDefFileExt     As String
  nCustData       As Long
  fnHook          As Long
  sTemplateName   As String
End Type
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" ( _
  pOpenfilename As OPENFILENAME) As Long
 
Function fkt_sDelectKeyFile(Optional sPath As String) As String
 
    Dim sFilter As String
    Dim uOFN As OPENFILENAME
    uOFN.nStructSize = Len(uOFN)
    uOFN.hwndOwner = GetActiveWindow()
    sFilter = "Mein Key-File(PT32SEVL.key)" & vbNullChar & "PT32SEVL.key" & _
      vbNullChar
    sFilter = sFilter & vbNullChar & vbNullChar
    uOFN.sFilter = sFilter
    uOFN.nFilterIndex = 1
    uOFN.sDlgTitle = "Key File not automatically found. Please select manually:" 
    uOFN.flags = OFS_FILE_OPEN_FLAGS
    uOFN.sFile = Space$(256) & vbNullChar
    uOFN.nFileSize = Len(uOFN.sFile)
    uOFN.sFileTitle = Space$(256) & vbNullChar
    uOFN.nTitleSize = Len(uOFN.sFileTitle)
    If Not IsMissing(sPath) Then
       uOFN.sInitDir = sPath
    End If
    If GetOpenFileName(uOFN) Then
        fkt_sDelectKeyFile = Left(uOFN.sFile, InStr(uOFN.sFile, vbNullChar) - 1)
    Else
        fkt_sDelectKeyFile = "Canceled"
    End If
End Function

'Meine Geisterform:
Private Sub cmdExit_Click()
  Unload Me
End Sub
Private Sub Form_Load()
  sg__File = fkt_sDelectKeyFile(App.Path)
  Me.Hide
End Sub

Tschaui
Woellmi