主题：如何给表中数据加超链接

Dim Result As DialogResult

Result = MessageBox.Show("Visual Basic一点不难,是不是?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

    MessageBox.show("YES")

End If

If Result = DialogResult.No Then

    MessageBox.show("NO")

End If

If Result = DialogResult.Cancel Then

    MessageBox.show("Cancel ")

End If