Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim i As Integer
        i = 0
 
        Label3.Text = CStr(Werte(i))
 
        i = i + 1
        Label3.Text = CStr(Werte(i))
 
        i = i + 1
        Label3.Text = CStr(Werte(i))
 
 
    End Sub