Private Sub Berechnung()
        For Each Prozess As Process In Process.GetProcesses()
            If Prozess.ProcessName = "nesterJ" Then
                EinstellungenSichern()
                Me.ShowDialog()
                Timer1.Enabled = False
            Else
                lblÜbrigZeit.Text -= 1
            End If
        Next Prozess
    End Sub

---------------
VB.NET macht Spaß!