conditional compilation

[eugene2005]

а что эта хрень не работает с стрингами? только числа можно ставить? неудобно...

[GSerg]

Код: Выделить всё

Option Explicit

#Const DEBUG_ = "Yes"


#If DEBUG_ = "Yes" Then
  Private Sub Form_Load()
    MsgBox "Debug"
  End Sub
#Else
  Private Sub Form_Load()
    MsgBox "Release"
  End Sub
#End If