从使用DateTimePicker显示小时和分钟

在这里，我已经由比较两个datetimepickers值显示状态，我怎么能显示在DateTimePicker显示时间的比较小时。

Dim d1 As DateTime = Me.DateTimePicker2.Value

        Dim d2 As DateTime = Me.DateTimePicker3.Value

        If d2 <= d1 Then

            TextBox12.Text = " ON-TIME"

        ElseIf d2 > d1 Then

            TextBox12.Text = " DELAY"

        End If