picWaitGif.Visible = True
Dim animation As New Animation
animation.Animation(picWaitGif, _
                    New Bitmap(Application.StartupPath & "\wait_ani.gif"))
 
'MsgBox("Einmal angehalten, dann geht's") ' weiß aber nicht warum
 
senden() ' zählt nur zum simulieren eines längeren Vorganges
 
'Dim post As New sendMail(dbsDataSource, tblFehler, "fhlKennung", selArray)
'Dim threadStart As New Threading.ThreadStart(AddressOf post.Senden)
'Dim thread As New Threading.Thread(threadStart)
'thread.Start()
 
animation.Animation(picWaitGif, Nothing)
picWaitGif.Visible = False

Gru? asam