确定两个对象是否相同

设置一个 Boolean 表达式来测试这两个对象。
在测试表达式中，使用 Is 运算符，将两个对象作为操作数。
如果两个对象指向同一类实例，则 Is 返回 True。

确定两个对象是否不同

有时，您要在两个对象不同时执行操作，且不适于组合 Not 和 Is，例如 If Not obj1 Is obj2。在这种情况下，可以使用 IsNot 运算符。
设置一个 Boolean 表达式来测试这两个对象。
在测试表达式中，使用 IsNot 运算符，将两个对象作为操作数。 如果两个对象指向不同类实例，则 IsNot 返回 True。

    Private Sub RadioButton1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles RadioButton1.Click,RadioButton4.Click,RadioButton3.Click,RadioButton2.Click
        Dim button As RadioButton = CType(sender,RadioButton)

        If sender Is RadioButton1 Then
            MsgBox("ok")
        End If
    End Sub