로그인후 웹브라우저로 이동

Private Sub Command1_Click()
WB.Document.frmNIDLogin.Id.Value = Text1.Text
WB.Document.frmNIDLogin.pw.Value = Text2.Text
WB.Document.frmNIDLogin.submit
Shell explorer http://www.naver.com/
End SubPrivate Sub Form_Load()
WB.Navigate http://nid.naver.com/nidlogin.login
End SubPrivate Sub Text1_Click()
Text1.Text =
End SubPrivate Sub Text2_Click()
Text2.Text =
End Sub
위소스를 응용해서 로그인해서 폼에 가두지 않코 직접 로그인후 웹페이지로 이동하고 싶은데폼에 안에 있는 웹브라우져는 로그인 된 상태인데 아래를 이용해서 이동된 웹브라우져는 로그인이 안된상태입니다.Shell explorer http://www.naver.com/아래도 로그인이 되려면 어캐 해야 하나요?