Type TASKENTRY
dwSize As Long
hTask As Integer
hTaskParent As Integer
hInst As Integer
hModule As Integer
wSS As Integer
wSP As Integer
wStackTop As Integer
wStackMinimum As Integer
wStackBottom As Integer
wcEvents As Integer
hQueue As Integer
szModule As String * 10
wPSPOffset As Integer
hNext As Integer
End Type
' The following declare must be entered on a single line
Declare Function TaskFindHandle Lib "Toolhelp" (lpte As TASKENTRY,
ByVal hTask As Integer) As Integer
Declare Function GetCurrentTask Lib "Kernel" () As Integer
Function VBDesignEnvironment () As Integer
Dim TE As TASKENTRY
Dim ModuleName As String
Dim hTask As Integer
Dim r
hTask = GetCurrentTask()
TE.dwSize = Len(TE)
r = TaskFindHandle(TE, hTask)
ModuleName = Left(TE.szModule, InStr(TE.szModule, Chr(0)) - 1)
If ModuleName = "VB" Then
VBDesignEnvironment = True
Else
VBDesignEnvironment = False
End If
End Function

Sub Form_Load ()
Me.Show
If VBDesignEnvironment() Then
Print "Design Environment"
Else
Print "Executable"
End If
End Sub