خوشحالم که تونستم کمکی بکنم 

موفق باشید 

 جهت اطلاع :شما باید mshtml رو اول رفرنس بکنین و ....

انشاا.. مشکل حل شده باشه

موفق باشید

خواهش میکنم

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


    Public Sub Home_Page()
        wb.Navigate("URL")
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DirectCast(GetCurrentWebForm.item("Object"), mshtml.HTMLInputElement).value = "VALUE"
        GetCurrentWebForm.item(7).click()
    End Sub


    Private Function GetCurrentWebForm() As mshtml.HTMLFormElement
        Try
            If GetCurrentWebDoc.forms.length > 0 Then
                Return DirectCast(GetCurrentWebDoc.forms.item(0), mshtml.HTMLFormElement)
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Function GetCurrentWebDoc() As mshtml.HTMLDocument
        Try
            Return DirectCast(wb.Document, mshtml.HTMLDocument)
        Catch ex As Exception
            Return Nothing
        End Try
    End Function