VB 类模块使用

类模块代bai码du
Option Explicit
Public Function Add(ByVal a As Long, ByVal b As Long) As Long
Add = a + b                 '反回zhi值daoAdd=a+b
End Function
窗体代码
Dim s As New Class1
Private Sub Command1_Click()
MsgBox s.Add(10, 10)
End Sub