Public Property Let Show(bNewValue) ''''[string] Sets the debugging panel. Where each digit in the string represents a debug information pane in order (11 of them). 1=open, 0=closed dbg_Show = bNewValueEnd PropertyPublic Property Get Show ''''[string] Gets the debugging panel. Show = dbg_ShowEnd Property

Public PropertiesProperty Let Enabled(bNewValue) [bool] Sets "enabled" to true or falseProperty Get Enabled [bool] Gets the "enabled" valueProperty Let Show(bNewValue) [string] Sets the debugging panel. Where each digit in the string represents a debug information pane in order (11 of them). 1=open, 0=closedProperty Get Show [string] Gets the debugging panel.Property Let AllVars(bNewValue) [bool] Sets wheather all variables will be displayed or not. true/falseProperty Get AllVars [bool] Gets if all variables will be displayed.

Public Methodspublic sub Print (label, output)Adds a variable to the debug-informations.public sub GrabDatabaseInfo (byval oSQLDB)Adds the Database-connection object to the debug-instance. To display Database-informationpublic sub draw ()Draws the Debug-panel