Option Explicit
 
<pre><code>' benötigte API-Deklaration
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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de