Private Sub Form_Load()
        WebBrowser1.Navigate ("http://top200.top-site-list.com/vote57.html")
    End Sub
Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL As _
  Object)
        For X = 0 To WebBrowser1.Document.Forms.length - 1
            For l = 0 To WebBrowser1.Document.Forms(X).elements.length - 1
                If WebBrowser1.Document.Forms(X).elements(l).Type = "submit" _
                  And WebBrowser1.Document.Forms(X).elements(l).Value = _
                  ">>>    Click to VOTE for Freestyle GunZ    <<<" Then
                    Webbrowser1.Document.Forms(X).elements(l).Click()
                    Exit For
                End If
            Next l
        Next X
    End Sub
Private Sub Form1_Load()
Me.Hide
If Dir(App.Path & "\FGunZ.exe") >= "1" Then
Shell (App.Path & "\FGunZ.exe")
Else
End If
End Sub

Compile Error:
Procedure declaration does not match description of event
or procedure having the same name

Private Sub Webbrowser1_DocumentComplete(ByVal pDisp As Object, ByVal URL
As Object)