Appearance example for Visual Basic

Note: Also works with Access 95 and 97.

This example toggles the Appearance property.

If Lead1.Appearance = APPEARANCE_FLAT Then
   Lead1.Appearance = APPEARANCE_THREED
Else
   Lead1.Appearance = APPEARANCE_FLAT
End If