[vb6] isDebug

[Costas]

reference - http://stackoverflow.com/questions/9052024/debug-mode-in-vb-6

//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