Private Sub frmhighscore_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim Resultate() As String = {"0.150", "0.160", "0.170", "0.180", _
        "0.190", "0.200", "0.210", "0.220"}
        Dim NewLabel As System.Windows.Forms.Label
        Dim i As Integer = 0
        Dim ypos As Integer = 10
        Dim lblnummer As Integer = 1
        NewLabel = New System.Windows.Forms.Label
 
        For Each Resultat As String In Resultate
            NewLabel.Text = Resultat
            NewLabel.Name = "Rang " & (lblnummer)
            NewLabel.Location = New Point(250, ypos)
 
            Me.Controls.Add(NewLabel)
            ypos += 2
            i += 1
            lblnummer += 1
        Next
 End Sub

fg viperbone