>>832
もともとそんなプロパティは用意されとらんよ
>>833 のEXE名変更は利用者にリネームされたら終わりなのでダメ
GetModuleFileName の方法もEXEをVB6.EXEにリネームされる危険があるんで、
レジストリキーからVB6のインストール先を取得するところまで考慮してなんとか使えるレベル
以下の方法が一番明快、かつ簡単だと思うぞ

Public Function IsIDE() As Boolean
　　Debug.Assert IDETest(IsIDE)
End Function

Private Function IDETest(ByRef bIsIDE As Boolean) As Long
　　bIsIDE = True
　　IDETest = True
End Function

API が使いたくて辛抱溜まらんなら、こういうトリッキーな方法もある
Public Function IsIDE() As Boolean
　　Debug.Assert lstrcpy(IsIDE, Chr(1))
End Function