Imports System.Runtime.InteropServices
 
<Guid("hier ist eine"), ComVisible(True)> _
Public Class MyMath
   Private m_zahl As Long
 
   Public Sub New()
      m_zahl = 3
   End Sub
 
   <ComVisible(true)> _
   Public Function addiere(ByVal a As Long, ByVal b As Long) As Long
      m_zahl = a + b
      Return a + b
   End Function
 
   <ComVisible(true)> _
   Public Property Zahl() As Long
      Get
         Return m_zahl
      End Get
      Set(ByVal val As Long)
         m_zahl = val
      End Set
   End Property
End Class