reference - http://stackoverflow.com/questions/9052024/debug-mode-in-vb-6
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//source - http://newmanservices.com/vbsource/isvbide.htm
//Syntax
If IsVBIDE() Then ...
//Source
Function IsVBIDE() As Boolean
Static stBeenHere As Boolean
Static stResult As Boolean
If stBeenHere Then
IsVBIDE = stResult
Else
stBeenHere = True
On Error GoTo Trap
Debug.Print 1 / 0
End If
Exit Function
Trap:
stResult = True
IsVBIDE = True
Exit Function
End Function
origin - http://www.pipiscrew.com/?p=3359 vb6-isdebug