Welcome to FreeSoftwareServers Confluence Wiki

This is just a WIP ATM example.

Public Sub UserFormFormatting(UserFormVar As Object)
Call HideTitleBar(UserFormVar)
Dim ctrl As control
Dim i As Long

For Each ctrl In UserFormVar.Controls
    Debug.Print TypeName(ctrl)
    Select Case TypeName(ctrl)

        Case "Label"
          With ctrl
           .BackColor = &H80000007
           .BackStyle = 1
           .BorderColor = &H8000000B
           .BorderStyle = 1
           .ForeColor = &H8000000B
           .FontSize = 10
           .SpecialEffect = 0
           .TextAlign = 2
         End With
    End Select
Next ctrl
End Sub
  • No labels