VB.NET Class without properties

<debuggerdisplay("{m_value}")>
Public Structure CustomValueType

    Private m_Value As Integer

    Public Shared ReadOnly MinValue = New CustomValueType With {.m_Value = -100}
    Public Shared ReadOnly MaxValue = New CustomValueType With {.m_Value = 100}

    Private Sub New(ByVal value As Integer)
        If value < CustomValueType.MinValue Then
            Throw New ArgumentOutOfRangeException("value", "Value cannot be less than CustomValueType.MinValue.")
        End If

        If value > CustomValueType.MaxValue Then
            Throw New ArgumentOutOfRangeException("value", "Value cannot be greater than CustomValueType.MaxValue.")
        End If

        m_Value = value
    End Sub

    Public Shared Widening Operator CType(ByVal value As CustomValueType) As Integer
        Return value.m_Value
    End Operator

    Public Shared Narrowing Operator CType(ByVal value As Integer) As CustomValueType
        Return New CustomValueType(value)
    End Operator

    Public Shared Operator <(ByVal x As CustomValueType, ByVal y As CustomValueType) As Boolean
        Return x.m_Value < y.m_Value
    End Operator

    Public Shared Operator >(ByVal x As CustomValueType, ByVal y As CustomValueType) As Boolean
        Return x.m_Value > y.m_Value
    End Operator

    Public Shared Operator <(ByVal x As Integer, ByVal y As CustomValueType) As Boolean
        Return x < y.m_Value
    End Operator

    Public Shared Operator >(ByVal x As Integer, ByVal y As CustomValueType) As Boolean
        Return x > y.m_Value
    End Operator

End Structure

Sub Main()

    Dim x As CustomValueType

    ' Works just fine...
    x = 31

    ' Will explode due to the limits imposed by the types New method...
    x = 110

End Sub

public class DemoImplicitClass
{
    public string SomeData;

    public DemoImplicitClass(string somedata = null)
    {
        SomeData = somedata;
    }

    public static implicit operator DemoImplicitClass(string somedata)
    {
        return new DemoImplicitClass(somedata);
    }
}

// sample test in some method or EventHandler:
DemoImplicitClass demo1 = "hello";

Console.WriteLine(demo1.SomeData);

Public Class DemoImplicitClass
    Public SomeData As String
    
    Public Sub New(Optional somedata__1 As String = Nothing)
    	SomeData = somedata__1
    End Sub
    
    Public Shared Widening Operator CType(somedata As String) As DemoImplicitClass
    	Return New DemoImplicitClass(somedata)
    End Operator
End Class