类模块代码
Option Explicit
Public Function Add(ByVal a As Long, ByVal b As Long) As Long
Add = a + b '反回值Add=a+b
End Function
窗体代码
Dim s As New Class1
Private Sub Command1_Click()
MsgBox s.Add(10, 10)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024