如何判斷程序処於運行環境還是調試環境

VB中新建工程，添加一個按鈕。
　　
　　使用的時候，在IDE環境下F5運行和編譯後運行就可以看到傚果。
　　
　　Option Explicit
　　
　　?
　　
　　Private Declare Function GetModuleFileName Lib"kernel32" Alias _
　　
　　???????"GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As _
　　
　　??????? String, ByVal nSize As Long) As Long
　　
　　?
　　
　　Function IsRunUnderVB6() As Boolean
　　
　　?Dim S As String
　　
　　?Dim Length As Long
　　
　　?Length = 256
　　
　　?S = String(Length, 0)
　　
　　?Call GetModuleFileName(0, S, Length)
　　
　　?S = Left(S, InStr(S, Chr(0)) - 1)
　　
　　?IsRunUnderVB6 = UCase(Right(S, 7)) ="VB6.EXE"
　　
　　End Function
　　
　　?
　　
　　Private Sub Command1_Click()
　　
　　If IsRunUnderVB6 Then
　　
　　MsgBox"調試"
　　
　　Else
　　
　　MsgBox"運行"
　　
　　End If
　　
　　End Sub