Public Sub WarteAnimation()
 
        Dim Box As New PictureBox
        Waitanimation.Controls.Clear()
 
        With Waitanimation
            .Text = "Bitte Warten..."
            .ControlBox = False
            .FormBorderStyle = FormBorderStyle.FixedSingle
            .Width = 220
            .Height = 60
            .ShowInTaskbar = False
            .TopMost = True
            .StartPosition = FormStartPosition.CenterScreen
        End With
 
        With Box
            .Location = New Point(10, 10)
            .Width = 200
            .Height = 30
        End With
 
        Waitanimation.Controls.Add(Box)
        Box.BringToFront()
 
        Dim g As Graphics = Box.CreateGraphics
        Dim drawingPent As New Pen(Color.Red, 30)
 
        'Msgbox(Waitanimation.Controls.Count)
 
        Do
            For i = 0 To 200
                Box.Refresh()
                g.DrawLine(drawingPent, i, 0, i + 20, 0)
                System.Threading.Thread.Sleep(20)
                Application.DoEvents()
            Next
        Loop
 
    End Sub