1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Namespace CustomNamespace
Public NotInheritable Class ClassEnumerator
Implements CustomInterface
Public Shared Sub Main(ByVal cmdArgs() As String)
End Sub
Private Property CustomProp1 As Integer Implements CustomInterface.Prop1
Get
Return 0
End Get
Set(value As Integer)
End Set
End Property
Private ReadOnly Property CustomProp2 As Object Implements CustomInterface.Prop2
Get
Return 0
End Get
End Property
End Class
Public Interface CustomInterface
Property Prop1 As Int32
ReadOnly Property Prop2 As Object
End Interface
End Namespace
|
