Class MyCountClass
  Private Shared InstanceCount As Integer = 0

  Public Sub New()
    InstanceCount += 1

    'Other initialization code
  End Sub

  Public Sub Dispose()
    InstanceCount -= 1

    'Other cleanup code
  End Sub
End Class