小弟定義下列兩個類別
'Class B
Option Explicit
Public as1 As Integer
Public Sub o()
End Sub
Public Sub p()
Debug.Print "p_B"
End Sub
Private Sub Class_Initialize()
as1 = 5
End Sub
'Class A
Option Explicit
Implements B
Dim as1 As Integer
Public Sub B_o()
Debug.Print "o_A"
End Sub
Public Sub B_p()
End Sub
Public Sub onlyA()
Debug.Print "A"
End Sub
但是卻出現"物件模組必須撰寫as1 以提供B介面"
請問要如何解決 謝謝