Windows Update Searcher

'Refer the COM: WUAPI 2.0 Type Library 
Imports WUApiLib.UpdateOperation
Imports WUApiLib.UpdateSessionClass
  Public Sub Get_Updates()
    'Object for seach
    Dim updateSearcher As New WUApiLib.UpdateSearcher
    Dim updateSession As New WUApiLib.UpdateSessionClass
    'Condition
    updateSearcher.Search("IsInstalled=0 and Type='Software'")
    Dim searchResult As WUApiLib.ISearchResult
    Dim Update As WUApiLib.IUpdate
    'Search
    searchResult = updateSearcher.Search("IsInstalled=0")
    'Show Tittles updates
    Dim i As Integer = 0
    For i = 0 To searchResult.Updates.Count - 1
      Update = searchResult.Updates.Item(i)
      MsgBox(Update.Title.ToString)
    Next
  End Sub