Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Dokument öffnen
        Timer1.Interval = 100
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        If Var1 = True Then 'Dokument geöffnet
            Timer1.Stop()
            'Drucken...
            Timer2.Interval = 100
            Timer2.Start()
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        If Var2 = True Then
            Timer2.Stop()
            'Dokuent schließen...
            Timer3.Interval = 100
            Timer3.Start()
        End If
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer3.Tick
        If Var3 = True Then
            Timer3.Stop()
            MsgBox("Operation abgeschlossen.")
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Dokument öffnen
        Timer1.Interval = 100
        Timer1.Start()
 
        Timer4.Interval = 10000
        Timer4.Start()
    End Sub
 
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer4.Tick
        If MsgBox("Abbrechen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
            Timer1.Stop()
            Timer2.Stop()
            Timer3.Stop()
            Timer4.Stop()
        End If
    End Sub