Visual .Net – Clases

Ejemplo de usos de clases y clases con vectores.

Public Class class_Prueba
Public item as string
End Class

Declarar una clase:
Dim classprueba As New class_Prueba

CLASES CON VECTORES:

            
Dim classprueba() As New class_Prueba
ReDim classprueba(0)
        classprueba(0) = New class_Prueba
        Dim item As Long = 0
 


    ---BUCLE
           If item > 0 Then
                ReDim Preserve classprueba(UBound(classprueba) + 1)
                classSociedad(UBound(classprueba)) = New class_Prueba
            End If
            item = item + 1
     ^--BUCLE