Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Static clicks As Short
        clicks += 1S
        Select Case clicks
            Case 1
                MessageBox.Show("Folge1")
            Case 2
                MessageBox.Show("Folge2")
            Case 3
                MessageBox.Show("Folge3")
            Case 4
                MessageBox.Show("Folge4")
        End Select
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co