How do I specify a conditional instruction (if ... then)?

The following program illustrates various general features of the Visual Basic (VB, and SVB) language including a conditional instruction.

Sub main

'create a report and make it visible Dim r As New Report r.Visible = True 'evaluate whether or not it's visible 'if it is visible If r.Visible Then

MsgBox "The Report is visible"

'else if it is not visible ElseIf Not(r.Visible) Then

MsgBox "The Report is invisible"

'if nothing above was true then... Else

MsgBox _ "The Report is neither visible or invisible"

'indicate that the If block is done End If

End Sub

To run this program, click the button on the toolbar, press F5, or select Run Macro from the Run menu.