Dim intCont as system.int16=0	‘inicializo en 0
intCont +=1				‘esto sería lo mismo que intCont=intCont+1
‘
Messagebox.show(“El valor de contador es“ & intCont.tostring)

Imports System.Windows.Forms

Public Class objForm : Inherits Form
    Dim Cont As System.Int32 = 1
    Public Sub New()
        Me.Text = "Formulario"
    End Sub
    Public Sub New(ByVal strTitulo As String)
        Me.Text = strTitulo & " " & Me.Cont.ToString
        cont += 1
    End Sub
    Public Overloads Sub Dispose()
        MessageBox.Show("acabas de hacer dispose a " & Me.Text)
        Me.cont = 0
        MyBase.Finalize()
    End Sub
End Class

Public Class botonDestruyeForm : Inherits Windows.Forms.Button
    Private tmp_Form_a_destruir As objForm
    Public Property form_a_destruir() As objForm
        Get
            Return Me.tmp_Form_a_destruir
        End Get
        Set(ByVal Value As objForm)
            Me.tmp_Form_a_destruir = Value
        End Set
    End Property
    Public Sub Cerrar(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Me.tmp_Form_a_destruir.Dispose()
    End Sub
End Class

Me.tmp_Form_a_destruir.Dispose()

Public Overloads Sub Dispose()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim x As New objForm("Algunos tips .NET")
        x.Size = New Size(400, 100)
        x.Location = New Point(8, 8)
        x.Show()
        Dim objBotonDestruyeForm As New botonDestruyeForm
        objBotonDestruyeForm.Location = New Point(20, 9)
        objBotonDestruyeForm.Size = New Size(300, 20)
        objBotonDestruyeForm.Text = "Dispose a " & x.Text
        objBotonDestruyeForm.form_a_destruir = x
        x.Controls.Add(objBotonDestruyeForm)
    End Sub

Public Class persona 'clase persona
    Dim nombre, telefono As String
    Dim edad As Integer
    Public Sub correr()

    End Sub
    Public Function devuelve_edad() As Integer
        Return edad
    End Function
End Class

Public Class alumno Inherits persona 'clase alumno
    Dim nro_matricula As String
End Class

Dim Renziño As New alumno
        Renziño.edad = 7
        Renziño.nro_matricula = "0001"

System.Collections.CollectionBase  ‘DETALLES DE LA CLASE
      [Visual Basic]
MustInherit Public Class CollectionBase
   Implements IList, ICollection, IEnumerable
[C#]
public abstract class CollectionBase : IList, ICollection,
   IEnumerable

Public Class ArregloBotones : Inherits System.Collections.CollectionBase

    Private pos_left As Integer
    Private pos_arriba As Integer
    Private formulario_fuente As System.Windows.Forms.Form

    Public Function NuevoBoton() As System.Windows.Forms.Button
        Dim aButton As New System.Windows.Forms.Button
        Me.List.Add(aButton)
        formulario_fuente.Controls.Add(aButton)
        aButton.Top = Me.pos_arriba
        aButton.Left = pos_left
        aButton.Tag = Me.Count
        aButton.Text = "Button " & Me.Count.ToString
        AddHandler aButton.Click, AddressOf ClickHandler
        Return aButton
    End Function
    Public Sub New(ByVal formulario As System.Windows.Forms.Form, ByVal left As Integer, ByVal top As Integer)
        pos_left = left
        pos_arriba = top
        formulario_fuente = formulario
    End Sub
    Public ReadOnly Property Item(ByVal Index As Integer) As _
       System.Windows.Forms.Button
        Get
            Return CType(Me.List.Item(Index), System.Windows.Forms.Button)
        End Get
    End Property
    Public Sub ClickHandler(ByVal sender As Object, ByVal e As _
       System.EventArgs)
        MsgBox("Hiciste click en " & CType(CType(sender, _
           System.Windows.Forms.Button).Tag, String))
    End Sub
End Class

Private Sub cmd_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_add.Click
Dim objControl As New ArregloBotones(Me, 100, cont)
cont += 20
objControl.NuevoBoton()
End Sub

Public Sub New(ByVal formulario As System.Windows.Forms.Form, ByVal left As Integer, ByVal top As Integer)

Dim objControl As New ArregloBotones(Me, 100, cont)

Public Sub New()

Dim aButton As New System.Windows.Forms.Button
formulario_fuente.Controls.Add(aButton)

Dim objRegistro As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
objRegistro.CreateSubKey("javier") 

Dim objValor As Microsoft.Win32.RegistryKey = objRegistro.OpenSubKey("javier")
objValor.SetValue("apellidos", "ulloa sernaque")

Dim objRegistro As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("javier")
objRegistro.SetValue("apellido", "ulloa")

Dim objRegistro As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
For Each valor As String In objRegistro.GetValueNames
Dim tmpRegistro As Microsoft.Win32.RegistryKey = objRegistro
MessageBox.Show(tmpRegistro.GetValue(valor))
Next

   Public Function ingreso_datos_completos(ByVal objFrm As Windows.Forms.Form) As Boolean
        'LOS textbox,combos que tengan el tag con el valor="*" son requeridos
        Dim objCtl As Control
        For Each objCtl In objFrm.Controls
            If TypeOf objCtl Is TextBox Or TypeOf objCtl Is ComboBox And objCtl.Tag = "*" Then
                If objCtl.Text = "" Then Return False
            End If
        Next
        Return True
    End Function

   Public Function comprueba_ataque_sql_injector(ByVal str_usuario As String) As Boolean
        With str_usuario
            If .Substring(.TrimEnd.Length - 2) = "--" Then
                Return True
            End If
        End With
        Return False
    End Function

Public Sub cargar_listview(ByVal objlstv As ListView, ByVal registro As SqlClient.SqlDataReader)
        With objlstv
            .Columns.Clear()
            .Items.Clear()
            .GridLines = True
            .View = View.Details
            .FullRowSelect = True
        End With
        Dim i As Int16, objItem As ListViewItem
        With registro
            For i = 0 To .FieldCount - 1
                objlstv.Columns.Add(.GetName(i), 100, HorizontalAlignment.Center)
            Next

            Do While .Read
                objItem = objlstv.Items.Add(registro(0))
                For i = 1 To .FieldCount - 1
                    If TypeOf (registro(i)) Is Date Then
                        objItem.SubItems.Add(CStr(registro(i)))
                    Else
                        If TypeOf (registro(i)) Is String Then
                            objItem.SubItems.Add(registro(i))
                        Else
                            objItem.SubItems.Add(registro(i).ToString)
                        End If

                    End If
                Next
            Loop
            registro.Close()
        End With
    End Sub

    Public Sub CargarCombo(ByVal str_Registro As String, ByVal myCombo As ComboBox, ByVal CampoPrincipal As String, ByVal CampoSecundario As String, ByVal conexion As SqlClient.SqlConnection)
        Dim oTablaCargo As New DataTable
        Dim DACargo As New SqlClient.SqlDataAdapter(str_Registro, conexion)
        Try
            DACargo.Fill(oTablaCargo)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        myCombo.DataSource = oTablaCargo
        myCombo.ValueMember = CampoPrincipal
        myCombo.DisplayMember = CampoSecundario
    End Sub