Vertical Text on a Control Button

I don't believe you can with an ActiveX button. I'd also recommend using the Forms ones in preference unless you have a real need for the ActiveX type.

You could create the text in something like Paint and save it.

Assign it to the Command Button using:

CommandButton1.Picture = LoadPicture("C:\Users\...\Pictures\....jpg")

Regards

You can't, other than changing the caption for example. Why is it not obvious that it's been pressed from what it does?

Sounds like an unusual design to me. Can you elaborate a little so we can try and think of some alternatives or other workarounds?

One way:

A picture paints ...

Dim bButtonpressed As Boolean

Private Sub CommandButton1_Click()

If Not bButtonpressed Then
    CommandButton1.Picture = LoadPicture("C:\cross.bmp")
    bButtonpressed = True
Else
    CommandButton1.Picture = LoadPicture("C:\tick.bmp")
    bButtonpressed = False
End If

End Sub

Use this code with the attached bitmaps to indicate ticked or not.

Regards

This will alternate horizontal / vertical text on an activex button.

Private Sub CommandButton1_Click()
    
    Dim strText As String
    Dim lngIndex As Long
    
    strText = CommandButton1.Caption
    If InStr(strText, Chr(13)) > 0 Then
        strText = Replace(strText, vbCrLf, "")
    Else
        For lngIndex = Len(strText) - 1 To 1 Step -1
            strText = Left(strText, lngIndex) & Chr(13) & Mid(strText, lngIndex + 1)
        Next
    End If
    CommandButton1.Caption = strText
    
End Sub

Although I agree you may need to re think your UI.