フォーム操作１（テキストボックス、ボタン）

  ' 入力する
  Sub TypeValue(ByVal domId As String, ByVal value As String)
    Dim inputElm As MSHTML.IHTMLInputElement = DirectCast(GetElementById(domId), MSHTML.IHTMLInputElement)
    inputElm.value = value
    System.Threading.Thread.Sleep(100)
  End Sub

  ' ボタンを押下する
  Function TryClickSubmit(Optional ByVal domId As String = "") As Boolean
    Return TryClickSubmit(0, domId)
  End Function
  Function TryClickSubmit(ByVal id As Integer) As Boolean
    Return TryClickSubmit(id, "")
  End Function
  Private Function TryClickSubmit(ByVal id As Integer, ByVal domId As String) As Boolean
    Try
      ClickSubmit(id, domId)
      Return True
    Catch ex As TimeoutException
      log.Warn("ClickSubmitに失敗しました。", ex)
    End Try
    Return False
  End Function
  Sub ClickSubmit(Optional ByVal domId As String = "")
    ClickSubmit(0, domId)
  End Sub
  Sub ClickSubmit(ByVal id As Integer)
    ClickSubmit(id, "")
  End Sub
  Private Sub ClickSubmit(ByVal id As Integer, ByVal domId As String)
    If domId = "" Then
      Dim docTmp = CurrentDoc
      docTmp.forms(id).submit()
    Else
      GetElementById(domId).click()
    End If
    WaitIE()
  End Sub

  Protected Function GetElementById(ByVal domId As String) As MSHTML.IHTMLElement
    Dim rtn As MSHTML.IHTMLElement
    ' IEのgetElementByIdはidだけでなくnameも参照する
    rtn = CurrentDoc.getElementById(domId)
    Return rtn
  End Function