Private Delegate Sub Timer_Delegate()
Private SchrottNET_will_einen_Umweg As New Timer_Delegate(AddressOf Timer_Event)
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
Handles Timer1.Tick
 
   Me.Invoke(SchrottNET_will_einen_Umweg)
End Sub
 
Private Sub Timer_Event()
   Me.PictureBox1.Visible = Not Me.PictureBox1.Visible
End Sub