Comments

' This is a comment
// This is a comment too
Rem This is a remark

Strings

""
"foo ""bar"" baz"

Numbers and colors

42
3.14159
3E4
&b0110
&cAABBCCDD
&hBadFace
&o777
&u9

Example

Dim g As Graphics
Dim yOffSet As Integer
g = OpenPrinterDialog()
If g <> Nil Then
  If MainDishMenu.ListIndex <> -1 Then
    g.Bold = True
    g.DrawString("Main Dish:",20,20)
    g.Bold = False
    g.DrawString(MainDishMenu.Text,100,20)
    g.Bold = True
    g.DrawString("Side Order:",20,40)
    g.Bold = False
    If FriesRadio.Value Then
      g.DrawString(FriesRadio.Caption,100,40)
    End If
    If PotatoRadio.Value Then
      g.DrawString(PotatoRadio.Caption,100,40)
    End If
    If OnionRingRadio.Value Then
      g.DrawString(OnionRingRadio.Caption,100,40)
    End If
    yOffSet = 60
    If CheeseCheckBox.Value Then
      g.Bold = True
      g.DrawString("Extra:",20,yOffSet)
      g.Bold = False
      g.DrawString(CheeseCheckBox.Caption,100,yOffSet)
      yOffSet = yOffSet + 20
    End If
    If BaconCheckBox.Value Then
      g.Bold = True
      g.DrawString("Extra:",20,yOffSet)
      g.Bold = False
      g.DrawString(BaconCheckBox.Caption,100,yOffSet)
      yOffSet = yOffSet + 20
    End If
    g.Bold = True
    g.DrawString("Notes:",20,yOffSet)
    g.Bold = False
    g.DrawString(NotesField.Text,100,yOffSet,(g.Width-40))
  End If
End If