12 lines
249 B
VB.net
12 lines
249 B
VB.net
Namespace EDOKA
|
|
Public Class MyText
|
|
Inherits EDOKA.MyMessage
|
|
|
|
Public Function gettext(ByVal wert As Integer) As String
|
|
gettext = Me.Get_Meldungstext(wert)
|
|
|
|
End Function
|
|
|
|
End Class
|
|
End Namespace
|