inherits ....
dim bereitsAbgearbeitet  as booleean
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        bereitsAbgearbeitet = False
    End Sub
 
 
 
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Activated
        If Not bereitsAbgearbeitet Then
            'dein code
            bereitsAbgearbeitet = True
        End If
    End Sub

Nichts ist umsonst!