Change color in middle line of userform label

[ThomasOES]

I have a userform label caption with 3 lines. How to change the color of the middle line? I would like the top and bottom lines red and the middle line black.
The middle line is from a textbox entry.
I know I could simply divide the the caption into 3 different labels but I would like a more elegant solution.

With calinc.Label1
        .Caption = "Calibrant Input" _
                    & vbNewLine & _
                    """" & caltex.stanbox & """" _
                    & vbNewLine & _
                    "Incorrect. Re-Enter"

Thanks for any help.

 

[Domenic]

It doesn't look it's possible, but here's a possible alternative that uses the InkEdit control...

Every character in TextBox in different color in vba excel

I'm looking for a way to display every letter in a TextBox within a UserForm in different colors using VBA. For example first character red,second blue,third... . Is there any way to do this?

stackoverflow.com

Otherwise, you can always cheat and use 3 separate labels to do what you want.

Cheers!

 

[ThomasOES]

Thanks Domenic. I used 3 labels. Just a few extra lines.

Sub show_moninc()
moninc.Show vbModeless
With moninc
    .Top = 300
    .Left = 300
    .Height = 150
    .Width = 250
    .Caption = "show_moninc"
    With moninc.Label1
        .Caption = "Monitor Input"
        .Top = 0
        .Width = moninc.Width
        .Height = 30
        .Left = (moninc.InsideWidth - .Width) / 2
        With .Font
                .Size = 20
                .Bold = True
                .Name = "Arial"
        End With
        .ForeColor = vbRed
        .TextAlign = fmTextAlignCenter
    End With
    With moninc.Label2
        .Caption = """" & montex.stanbox & """"
        .Top = 24
        .Width = moninc.Width
        .Height = 30
        .Left = (moninc.InsideWidth - .Width) / 2
        With .Font
                .Size = 20
                .Bold = True
                .Name = "Arial"
        End With
        .ForeColor = vbBlack
        .TextAlign = fmTextAlignCenter
    End With
    With moninc.Label3
        .Caption = "Incorrect. Re-Enter"
        .Top = 48
        .Width = moninc.Width
        .Height = 30
        .Left = (moninc.InsideWidth - .Width) / 2
        With .Font
                .Size = 20
                .Bold = True
                .Name = "Arial"
        End With
        .ForeColor = vbRed
        .TextAlign = fmTextAlignCenter
    End With
    With moninc.moninc_but
        .Caption = "OK"
        .Top = 80
        With .Font
                .Size = 14
                .Bold = True
                .Name = "Arial"
        End With
        .ForeColor = 0
        .AutoSize = True
        .Left = (moninc.InsideWidth - .Width) / 2
    End With
End With
Do While moninc.Visible
DoEvents
Loop
End Sub

 

[Domenic]

You're very welcome, cheers!