VB.NET高手请指导！小弟跪求

下面是VB语句，能用；现在想用ＶＢ．ＮＥＴ写，不知道怎么写……请指导！

Public maiIE As Object
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim baiWinFolder As New ShellWindows
    For Each baiIE In baiWinFolder
        If InStr(1, baiIE.FullName, "", vbTextCompare) <> 0 Then
            If InStr(1, baiIE.LocationURL, "baidu.com", vbTextCompare) <> 0 Then
                Exit For
            End If
        End If
    Next
End Sub

参考
http://blog.csdn.net/lufy_legend/article/details/25191765

这就是VB.NET语句，唯一需要注意的是，你需要在VB.NET中用项目-引用，添加com引用，引用shell32.dll和shdocvw.dll。