Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
  For i As Int32 = 5 To 0 Step -1
    Me.Text = "Das Prg. wird in " & i.ToString & " Sek. beendet"
    Threading.Thread.Sleep(1000)
  Next
End Sub