VB 對外鏈接與對話框

 Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        r = MessageBox.Show("將要透過網際網路鏈接至 - 我的記事簿" & vbCrLf & "此功能須要連接網際網路" & vbCrLf & "繼續執行 [ 確定 ]   離開 [ 取消 ]          ", "系統提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
        If r = DialogResult.OK Then
            Shell("rundll32.exe url.dll,FileProtocolHandler http://http://hsiao-tw.blogspot.com//")
        End If
    End Sub