Private Sub GetTextPaddingInfo()
Dim info As String = String.Empty
' See if the TextPadding property has been explicitly set if it hasn't, it will
' be set to the special "use default" setting, which is -1.
info += "The text padding height is currently set to "
If (Me.ultraCalendarCombo1.TextPadding.Height = -1) Then
info += "the default value, "
End If
info += Me.ultraCalendarCombo1.TextPaddingResolved.Height.ToString() + vbCrLf
info += "The text padding width is currently set to "
If (Me.ultraCalendarCombo1.TextPadding.Width = -1) Then
info += "the default value, "
End If
info += Me.ultraCalendarCombo1.TextPaddingResolved.Width.ToString() + vbCrLf
MessageBox.Show(info, "GetTextPaddingInfo", MessageBoxButtons.OK)
End Sub