hatena
hatena
2021/08/10 (火) 10:09:41
引数で対象コントロールを渡せはいいでしょう。
標準モジュール
Public Sub initButton(btn as Control)
Const Chrsize = 10
With btn
.FontSize = Chrsize
.BackColor = RGB(191, 191, 191)
End With
End Sub
フォームモジュール
Private Sub Form_Load()
Call Module1.initButton(Me.button1)
Me.button1.Caption = "01_Japanese"
End Sub
通報 ...