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

Question

下面是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

Answer 1

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