Private Declare Function GetModuleFileName Lib "kernel32" _
   Alias "GetModuleFileNameA" ( _
   ByVal hModule As Long, _
   ByVal lpFileName As String, _
   ByVal nSize As Long) As Long
 
 
Private Function IsIDE() As Boolean
   Dim nResult As Long
   Dim sName As String
 
   sName = Space$(255)
   nResult = GetModuleFileName(0, sName, Len(sName))
   If nResult > 0 Then
      sName = UCase$(Left$(sName, nResult))
      If InStr(sName, "\") > 0 Then sName = Mid$(sName, InStrRev(sName, "\") + 1)
      IsIDE = (sName = "VB4.EXE" Or sName = "VB5.EXE" Or sName = "VB6.EXE")
   End If
End Function

If not isIDE then
   MsgBox "Das ist eine Demoversion..."
Endif

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control