Help with WebBrowser Control

I am trying to automate the selection of some form elements on a Web Page using VB6. I have added a reference to the HTML Object Library to the project and am trying to tie the navigation and form manipulation to a button click on the form.

I have the following code associated with a button called "btnName":

Private Sub btnName_Click()

WebBrowser1.navigate "http://www.google.html"
DoEvents: DoEvents: DoEvents

Do While WebBrowser1.Busy
DoEvents
Loop

Set doc = WebBrowser1.document
DoEvents

Do While WebBrowser1.Busy
DoEvents
Loop

End Sub

However whenever I try to run or compile the project I get an error that says "Variable not defined" and highlights "WebBrowser1" in the code.

Can anyone tell me what I'm missing or doing wrong. Based on all my research, it looks like I am implementing correctly, but I cannot for the life of me figure it out.

MANY THANKS!!!

WebBrowser1 is a WebBrowser control. a control that you would place on the form. to get that control you need a reference to Microsoft Internet Controls in components.