Detect IDE

    Dim mode
    mode = App.LogMode
        If mode = 0 Then
            MsgBox "Running In IDE Version"
        ElseIf mode = 1 Then
            MsgBox "Running in Compiled Version"
        End If

    Public Function InIDE() As Boolean
        InIDE = CBool(App.LongMode = 0)
    End Function

Option Explicit
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
 
Private Function InIDE() As Boolean
Dim s As String
    s = Space$(255)
        Call GetModuleFileName(GetModuleHandle(vbNullString), s, Len(s))
        InIDE = (UCase$(Trim$(s)) Like "*VB6.EXE*")
End Function
 
Private Sub Form_Load()
    MsgBox InIDE
End Sub

    '::: Проверка среды запуска
 
    Id& = GetCurrentProcessId()
 
    hmainVB& = FindWindow("IDEOwner", vbNullString)
 
    If hmainVB& <> 0 Then
        
       ret& = GetWindowThreadProcessId(hmainVB&, Id1&)
        
       If Id& = Id1& Then
           
          MsgBox "Этот проект не предназначен для запуска из IDE"
              
          End
          
       End If
              
    End If

Private Declare Function GetCurrentProcessId Lib "KERNEL32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long