Find Userform Control Type useful to creat VBA userform Theme

 Sub CommandButtonclick()
    Dim uCtrl As Control
    For Each uCtrl In UserForm1.Controls
        If TypeName(uCtrl) = "CheckBox" Then
        ElseIf TypeName(uCtrl) = "ComboBox" Then
        ElseIf TypeName(uCtrl) = "CommandButton" Then
        ElseIf TypeName(uCtrl) = "Label" Then
        ElseIf TypeName(uCtrl) = "MultiPage" Then
        ElseIf TypeName(uCtrl) = "OptionButton" Then
        ElseIf TypeName(uCtrl) = "TextBox" Then
        End If
        'On Error Resume Next
        uCtrl.Font.Bold = True
        uCtrl.Font.Name = "Courier New"
        uCtrl.BackColor = 255
    Next
End Sub