Imports System.Runtime.CompilerServices
 
Module modExtension
 
   <Extension()> _
   Public Function Quadrieren(ByVal value As Integer) As Integer
      Return value ^ 2
   End Function
 
End Module

Me.TextBox1.Text = CInt(Me.TextBox1.Text).Quadrieren.ToString

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control