Crear UDT.

Intenta con esta clase
Public Class CualquierNombre
Dim n As Double
Dim max As Double = 10 'Por defecto será el 10
Dim min As Double = 0 'Por defecto será el 0

'Propiedad de asigancion y lectura del valor
Property valor() As Double
Get
Return n
End Get
Set(ByVal Value As Double)
If Value > max Then Value = max
If Value < min Then Value = min
n = Value
End Set
End Property

'Propiedad para modificar el máximo
Property Maximo() As Double
Get
Return max
End Get
Set(ByVal Value As Double)
max = Value
End Set
End Property
'Propiedad para modificar el mímino
Property Minimo() As Double
Get
Return min
End Get
Set(ByVal Value As Double)
min = Value
End Set
End Property
End Class


la puedes usar así:

dim dato as new CualquierNombre
dato.minimo=0 'no es necesario
dato.maximo0 'no es necesario
dato.valor0
Debug.Write(dato.valor.ToString) 'Escribe 100

JAson

Hola,
Como puedo crear una clase o estructura de manera que se

comporte como los

tipos base del .Net Frmework como "Integer" o "Boolean".
O sea, que pueda hacer lo siguiente:

Dim var As MiClase
var = 24
Debug.Write(var.ToString) 'Escribe 24

Lo que necesito es un tipo de datos que este acotado como

yo quiera, o sea,

que su valor maximo y minimo sean unos que yo decida.

Gracias.
Saludos.



.