例：モジュールに入る

ユーザが ALM モジュールに入る（または切り替える）ことができるかどうかを決定できます。

次のコードを CanEnterModule イベント・プロシージャに追加します。このイベント・プロシージャは、ユーザが ALM モジュールに入る前または切り替える前にトリガされます。

Function CanEnterModule(ModuleName)
  On Error Resume Next
  result = MsgBox("Do you want to enter "+ModuleName+"?", vbYesNo)
  Select case result
     case vbNo
         CanEnterModule = false
     case vbYes
         CanEnterModule = DefaultRes
  End Select
  On Error GoTo 0
End Function