VB - Detect if you are running in the IDE...

[crptcblade]

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
 
'usage
MsgBox InIDE

This is for VB6, for versions below 6, change the bolded section to the file name of the VB executable (VB5.exe, etc).