| Private Sub Command1_Click() Dim score As Integer score = 0 Label1.Caption = score End Sub Private Sub Command2_Click() | 変数scoreはそれぞれのプロシージャの中でのみ有効 | 
| Dim score As Integer Private Sub
        Command1_Click() Private Sub Command2_Click() | 変数scoreはモジュール(このフォーム全体)内で有効 | 
| 
 | 標準モジュールのモジュール レベル (宣言セクション) でPublic ステートメント を使って変数を明示的にパブリックとして 宣言します。 このように宣言された変数は Option Private Module が有効でない 限りすべてのアプリケーションの全モジュ ールの全プロシージャから使うことができ ます。 |