菜鸟求解！！！

[linzhmu]

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 Property
End Class

Public Class TestClass
    Public Sub Main()
        Dim f As New TestFrm
        Dim t As ITest = f
        Debug.Print(t.strPrint)
    End Sub
End Class

Public Interface ITest
    Property strPrint As String
End Interface

这就是面向接口编程吗？？？？

[海_狼]

用的这么牵强！！

[沐NeMo]

不大清楚。
aaaa改为：strPrint。名称要相同。
Interface ITest里面可以 属性，方法，过程，函数。
Implements类必须和ITest名称一一对应，并实现。