Para saber si un programa se está ejecutando dentro del IDE de Visual Basic (en modo diseño) o a partir de un ejecutable (EXE), podemos utilizar la siguiente función, la cual ocasiona un error con el objeto Debug. Solamente va a saltar este error si el programa se está ejecutando en modo diseño, ya que el objeto Debug solo funciona aquí, porque cuando se crea el ejecutable del programa, la llamada a las funciones de este objeto se omiten.

Private Function ModoDiseño() As Boolean

   On Error GoTo errHandler

   ' Ocasionar un error (los métodos del objeto Debug solo funcionan
   ' en tiempo de diseño
   Debug.Print 1 / 0

   ' Si no hubo error, el programa se está ejecutando a partir del ejecutable
   ModoDiseño = False
   Exit Function

errHandler:
   ' Si hubo error, estamos en modo de diseño
   ModoDiseño = True
   Err.Clear
End Function