Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
 
  Timer1.Interval = 5000
  Timer1.Start()
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Timer1.Tick
 
  ' Bsp.: 3 mal blinken
  For i As Integer = 1 To 3
    Me.Opacity = 0.1
    System.Threading.Thread.Sleep(150)
 
    Me.Opacity = 100
    System.Threading.Thread.Sleep(150)
  Next i
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de