Mit Timer mehrere Forms schließen und öffnen

Computer: Software & Programmierung .NET & C#
#1

Hallo und Guten Tag.
Hoffe bin auf dem richtigen Brett.
Ich war früher schon mal in diesem Forum registriert,
und habe mit Hilfe dieses Forums VBA gelernt. Versuche mich jetzt in Visual Basic, bin also noch Anfänger.
Ich möchte gerne mit einem Timer mehrere Forms öffnen und schließen.Ich gehe mal davon aus das das geht.
Ziel ist: Form1 öffnen - Form1 schließen und Form2 öffnen - Form2 schließen und Form3 öffnen usw.
Ich habe meinen 1. Timer pogrammiert, wobei in diesem Fall Form2 nicht sichtbar wird.Kann man denn mit einem Timer mehrere Forms öffnen und schließen, oder geht das nur 2 Forms?
Für jede Hilfe meinen Dank im Voraus.
Hier mein jetziger Quellcode.
Gruß Skaletti!

Private Form1 As New frm1
 Private Form2 As New frm2
 Private Form3 As New frm3

 Private Sub Timer1\_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 frm1.Visible = Not frm1.Visible
 frm2.Visible = Not frm2.Visible
 frm3.Visible = Not frm3.Visible
 'Timer1.Enabled = False
 Visible = Not Visible
 End Sub

 Private Sub cmdStart\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
 frm1.Show()
 Timer1.Enabled = True
 Timer1.Interval = 10000
 End Sub

 Private Sub cmdStop\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
 Timer1.Stop()
 End Sub

MOD: Pre-Tag korrigiert

#2

Du musst die anderen beiden Forms natürlich auch erst mal anzeigen, bevor da irgendetwas passiert. Also im Click-Event des Buttons noch frm2.Show() und frm3.Show. Für frm1 hast du es ja schon gemacht.

#3

Hallo Nico,
Danke für die Antwort.

Du musst die anderen beiden Forms natürlich auch erst mal
anzeigen, bevor da irgendetwas passiert. Also im Click-Event
des Buttons noch frm2.Show() und frm3.Show. Für frm1 hast du
es ja schon gemacht.

Ist logisch, hätte ich selbst drauf kommen müssen. Es funzt jetzt soweit. Vielen Dank.
Gruß Skaletti!

Private Form1 As New frm1
 Private Form2 As New frm2
 Private Form3 As New frm3

 Private Sub Timer1\_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 frm1.Visible = Not frm1.Visible
 frm2.Visible = Not frm1.Visible
 frm3.Visible = Not frm2.Visible
 'Timer1.Enabled = False
 End Sub

 Private Sub cmdStart\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStart.Click
 frm3.Show()
 frm2.Show()
 frm1.Show()
 Timer1.Enabled = True
 Timer1.Interval = 10000
 End Sub

 Private Sub cmdStop\_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
 frm3.Close()
 frm2.Close()
 frm1.Close()
 Timer1.Stop()
 End Sub