Хотелось бы добавить несколько слов. Вышеуказанный способ с делением на ноль работает. Но не всегда. В режиме Tools/Options/General/Break on All Errors этот код в IDE не работает. Ниже я представляю три альтернативных варианта:

Private Declare Function GetModuleFileName Lib "kernel32" _
Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()
MsgBox IsDebugMode
End Sub

Private Sub Command2_Click()
MsgBox RunningFromIDE
End Sub

Private Sub Command3_Click()
MsgBox IsRunningInIDE
End Sub

Public Function IsDebugMode(Optional pblnSetMode As Boolean = False) As Boolean

Static blnDebugMode As Boolean
blnDebugMode = pblnSetMode
If Not blnDebugMode Then Debug.Assert IsDebugMode(True)
IsDebugMode = blnDebugMode

End Function

Private Function RunningFromIDE() As Boolean
RunningFromIDE = False
If InStr(Command(), "RunningFromIDE") Then
RunningFromIDE = True
End If
End Function

Public Function IsRunningInIDE() As Boolean

Dim strFile As String
Dim lngCount As Long
Dim blnReturnValue As Boolean

strFile = String(255, 0)
lngCount = GetModuleFileName(App.hInstance, strFile, 255)
strFile = Left$(strFile, lngCount)
blnReturnValue = InStr(1, UCase$(strFile), "VB6.EXE") > 0

IsRunningInIDE = blnReturnValue

End Function

Способ с RunningFromIDE требует вписать строку "RunningFromIDE" в окно Project/Properties/Make/Command Line Arguments.

Способ с IsRunningInIDE подразумевает VB6.

VladConn