C# と VB.NET の質問掲示板

■No55846 (Mira さん) に返信

いまひとつ状況が分かりませんが

Public Class 〜
    Private Shared m_blnFlg as boolean = False

    Public Shared Sub FlgReset()
        m_blnFlg = False
    End Sub

    Public Shared Sub OnceExec()   '-- これは特にSharedでなくてもよい
        if m_blnFlg then Exit sub
        〜
        m_blnFlg = True
    End Sub
End Class

とクラスを実装して、最初にクラス.FlgResetを実行、あとはOnceExecを実行すれば
OnceExecの〜部分は一度しか実行されません。