'请增加一个按扭,一个Option1控件,一个图片框 Picture1

Option Explicit

Private Sub Command1_Click()
   Option1.Caption = "可维修费中g费中ggsdgfds老大费中ggsdgfds老大gsdgfds老大哥"
   Dim TextW As Long
   Dim TextH As Long
   Dim TextLine As Long
   
   Set Picture1.Font = Option1.Font
   TextW = (Option1.Width - 255) / Picture1.TextWidth("f")
   
   TextLine = LenB(Option1.Caption) / TextW + 1
   Option1.Height = TextLine * Picture1.TextHeight("f")
   
End Sub