Public Class ClassNew
    Private m_Var as string
    Public PRoperty Var as string
        ...
    End Property
    Public Sub NEw()
        m_Var = ""
    end Sub
end Class

Public Class ClassShared
    Private Shared m_Var as string
    Public Shared PRoperty Var as string
        ...
    End Property
end Class

Dim cls as New ClassNew
cls.Var = "text"

ClassShared.Var = "Text"

Public Class Fenster
    Inherits System.Windows.Forms
    Public Shared Counter as integer
    Public Sub NEw()
        Counter += 1
        MyBase.New
    End Sub
End Class

Dim frm as new Fester
MessageBox.Show("das war das " & frm.Counter.TosTring() & ". fenster")

Public Sub FillTextBox(Value as string)
    Text1.Text = Value
End Sub

Public Function Berechne(x as integer, y as integer) As integer
    return x +y
end Function

Public Sub Berechne(x as integer, y as integer, ByRef Summe as integer, _
  ByRef Produkt as integer)
    Summe = x + y
    Produkt = x * y
End Sub