--Requires SQLCMD mode
:SETVAR SqlCmdIsOn "SqlCmdIsOn"
GO

IF ('$(SqlCmdIsOn)' = '$' + '(SqlCmdIsOn)')
BEGIN
    RAISERROR ('This script must be run in SQLCMD mode.', 20, 1) WITH LOG
	SET NOEXEC ON;
END;

GO

:ON ERROR EXIT

--Set the name of database to be configured.
:SETVAR dbName foo
<rest of script>

If Err.Number = 51 Then
    Err.Raise 51, , "Expected True or False"
End If

Err.Raise Err.Number / 0 'bwahahaha

Public Function SomeFunction()
    SomeFunction = Err.Number + vbObjectError
End Function

MyErr = SomeFunction()
Err.Raise MyErr.Number, MyErr.Source, MyErr.Description, MyErr.HelpFile, MyErr.HelpContext

Public Sub SetErrorState(number As Integer, description As String)
    On Error Resume Next
    Err.Raise number, , description
End Sub

Public Sub x()
On Error GoTo ErrHandler
    y

    Exit Sub

ErrHandler:
    Err.Raise 5
End Sub

Public Sub y()
    Err.Raise vbObjectError, , "foo"
End Sub

Public Sub Foo()
    On Error GoTo CargoCultMustHaveHandler
    '...
CargoCultMustHaveHandler:
End Sub

if (hasOnErrorStmt && !instructions.Any(i => i.CanRunInErrorState)) { /* cargo-cult handler */ }

Public Sub Foo()
    On Error GoTo CargoCultMustHaveHandler
    '...
CargoCultMustHaveHandler:
    Resume Next
End Sub

Public Sub Foo()
    Dim x As Long
    On Error GoTo CargoCultMustHaveHandler
    x = 1 / 0
CargoCultMustHaveHandler:
    Resume Next
End Sub

Public Sub Foo()
    Dim x As Long
    On Error GoTo CargoCultMustHaveHandler
    x = 1 / 0
CargoCultMustHaveHandler:
    Debug.Print "Resuming"
    Resume Next
End Sub

Resuming
Resuming
Resuming

Resuming 11
Resuming 0
Resuming 20

For Each ctl In .Controls
 Select Case foo
   Case bar
     ctl.Enabled = True
     ctl.Locked = False
   Case foo
     ctl.Enabled = False
  End Select
Next

ctl.Enabled = (foo = bar)
If foo = bar Then ctl.Locked = True

For Each ctl In .Controls
    ctl.Enabled = Foo = bar
    ctl.Locked = Foo <> bar
Next

 Select Case foo
   Case bar
     result = True
   Case bad
      result = False
  End Select

  For Each ctl In .Controls
    ctl.Locked = Not Result
    ctl.Enabled = Result
  Next

  For Each ctl In .Controls
    controlStateManager.Apply(ctl, foo, bar)
  Next

 Select Case TypeName(ctrl)
   Case "bar"
     ctrl.Name = "Foo"
   Case "baz"
     ctrl.Caption = "Foo"
  End Select