Public Class frmLoop
 
    Dim WithEvents txtloop As New TextBox With {.Parent = Me}
    Dim WithEvents btnLoop As New Button With _
         {.Parent = Me, .Top = 100, .Text = "Loop"}
 
    Private Sub btnLoop_Click(sender As Object, _
        e As System.EventArgs) Handles btnLoop.Click
 
        Dim count As Integer
        If Integer.TryParse(txtloop.Text, count) AndAlso _
            (count > 0 And count < 6) Then
 
            For i As Integer = 1 To count
                Process.Start("www.vbarchiv.net")
            Next i
        End If
    End Sub
End Class