Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim msg As String = "親 Is 子:" & CStr(Me.Font Is Me.Label1.Font) & vbCrLf & "親=子:" & CStr(Me.Font.ToString() = Me.Label1.Font.ToString()) & vbCrLf & "親:" & Me.Font.ToString() & vbCrLf & "子:" & Me.Label1.Font.ToString() MsgBox(msg) Me.Label1.Font = DirectCast(Me.Font.Clone(), Font) End Sub End Class