Okay... Make a Label, textbox, timer, and button.
Add this code:
Code:
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text + 1
Shell("NET START DHCP", AppWinStyle.Hide)
If Label1.Text = TextBox1.Text Then
Shell("NET STOP DHCP", AppWinStyle.Hide)
Label1.Text = 0
Timer1.Stop()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
End Class
P.S. Set UAC settings to highest available.