菜鸟求解!!!
Public Class TestFrm Implements ITest Public Sub Main() Dim t As New TestClass t.Main() End Sub Private _strPrint As String = "TestData" Private Property aaaa As String Implements ITest.strPrint Get Return _strPrint End Get Set(value As String) _strPrint = value End Set End PropertyEnd ClassPublic Class TestClass Public Sub Main() Dim f As New TestFrm Dim t As ITest = f Debug.Print(t.strPrint) End SubEnd ClassPublic Interface ITest Property strPrint As StringEnd Interface