sharedmembersclass.vb

Mastering VBNet Include Source Code

Public Class SharedMembersClass
    Private strProperty As String

    Sub New(ByVal str As String)
        strProperty = str
    End Sub

    Public Function IReverseString() As String
        Return (StrReverse(strProperty))
    End Function

    Public Shared Function SReverseString(ByVal str As String) As String
        Return (StrReverse(str))
    End Function


End Class