Настройка местоположения ярлыков VB.Net

Question

Здесь я читаю из базы данных Sql, в которой задано множество вопросов, все отлично работает при извлечении их из базы данных.

Я хочу, чтобы каждая метка была, например, 50px ниже предыдущей, в тот момент, когда все они устанавливаются друг на друга, и я ничего не мог найти по этому вопросу.

Вся помощь очень приветствуется.

Private Sub PopulateQuestions() 

    Dim Rows As Integer 
    Rows = dsQuestionnaire.Tables("Questions").Rows.Count() 
    For x = 1 To Rows 
     drQuestions = dsQuestionnaire.Tables("Questions").Rows.Find(x) 
     Dim lblQuestion As Label = New Label 

     lblQuestion.Style(HtmlTextWriterStyle.Position) = "Absolute" 
     lblQuestion.Style(HtmlTextWriterStyle.Top) = "650px" 
     lblQuestion.Style(HtmlTextWriterStyle.Left) = "50px" 

     lblQuestion.Width = 512 
     lblQuestion.Text = drQuestions("Question").ToString() 
     Me.Controls.Add(lblQuestion) 
    Next 
End Sub 

Answer 1

Private Sub PopulateQuestions() 

    Dim Rows As Integer 
    Rows = dsQuestionnaire.Tables("Questions").Rows.Count() 
    Dim top As Integer 
    top = 625 
    For x = 1 To Rows 
     drQuestions = dsQuestionnaire.Tables("Questions").Rows.Find(x) 
     Dim lblQuestion As Label = New Label 

     lblQuestion.Style(HtmlTextWriterStyle.Position) = "Absolute" 
     lblQuestion.Style(HtmlTextWriterStyle.Top) = top & "px" 
     lblQuestion.Style(HtmlTextWriterStyle.Left) = "50px" 
     top += 30 

     lblQuestion.Width = 512 
     lblQuestion.Text = drQuestions("Question").ToString() 
     Me.Controls.Add(lblQuestion) 
    Next 
End Sub