Как создать кнопку с многострочным текстом

Option Explicit
Sub ...OnSetupDialog(ByVal Sender)
 
  '*** Данный код необходим для вызова встроенного обработчика ***
  '*** В случае его удаления возможно нарушение работы системы ***
    call   Inherited(Sender, "OnSetupDialog", Array(Sender))
  '*** конец кода поддержки встроенного обработчика            ***
 
  Const GWL_STYLE = -16
  Const BS_MULTILINE = 8192
 
  Dim btn
  Set btn = Sender.GetComponent("usrg_Button1")
 
  WinAPI.SetWindowLong btn.Handle, GWL_STYLE, _
    WinAPI.GetWindowLong(btn.Handle, GWL_STYLE) OR BS_MULTILINE
  btn.Caption = "Line1" & vbCrLf & "Line2"
 
End Sub

См. также

• TButton