Private Sub MeinForm_Activated(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles MyBase.Activated
 
  Static Dim bolFirstCall = True
 
   If bolFirstCall then
 
     ... Ladevorgang
 
    bolFirstCall =  False
  End If
End Sub