Debug Mode In VB 6?

Question

How can I do something similar to the following C code in VB 6?

#ifdef _DEBUG_
    // do things
#else
    // do other things
#end if

Answer 1

This is my short and stable code. I think it is better than conditional constants, because you don't need to change it every complication time.

Public Function InIDE() As Boolean
  On Error Resume Next
  Debug.Print 0 / 0
  InIDE = Err.Number <> 0
End Function