Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        Dim sum, n As Int64
        sum = TextBox2.Text
 
 
        Do
            n += 1
            sum += 1
 
 
            ListBox1.Items.Add("URL" & sum)
 
            If n = TextBox1.Text Then
                Exit Do
            End If
        Loop
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Clipboard.SetText(Me.ListBox1.SelectedItem)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        ListBox1.Items.Clear()
    End Sub
End Class