Private Function TestFunc(ByVal param As ???) As ???
    End Function

Enum MyKonst
    Test = 1
    Test2 = 2
    Test4 = 3
End Enum

Public Class TextOps
 
    Public Shared Function InsertText _
                  (ByVal text As System.Text.StringBuilder, _
                   ByVal textToInsert As String, startposition As Integer) As _
                   String
 
        Return text.Insert(startposition, textToInsert).ToString
    End Function
 
 
    Public Shared Function InsertText_
                  (ByVal text As String, _
                   ByVal textToInsert As String, startposition As Integer) As _
                   String
 
        Dim stb As New System.Text.StringBuilder(text)
        Return InsertText(stb, textToInsert, startposition)
    End Function
End Class

    Public Enum VehicleGroups
        Gruppe1 = 1
        Gruppe2 = 2
        Gruppe3 = 3
        Gruppe4 = 4
        Gruppe5 = 5
        Gruppe6 = 6
        Gruppe7 = 7
    End Enum
 
    Private Sub VehicleClass(ByVal Gruppe As VehicleGroups)
 
    End Sub

Public Structure ColorX
 
    ''' <summary>Die Farbe Zartrosa als Drawing.color</summary>
    Public Shared Property ZartRosa As Color = Color.FromArgb(255, 192, 203)
    ''' <summary>Die Farbe Himmelblau (SkyBlue) als Drawing.color </summary>
    Public Shared Property Himmelblau As Color = Color.SkyBlue
    ''' <summary>Die Farbe Goldgelb als Drawing.color </summary>
    Public Shared Property GoldGelb As Color = Color.FromArgb(205, 164, 52)
 
End Structure

Public Sub SetColor(c As Color)
    '....
End Sub

SetColor(ColorX.GoldGelb)

        Dim aa As Boolean
        aa=

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Public Class PersonX
 
    Public Shared ReadOnly Property KurtSchmalz As Person
        Get
            Return New Person("Kurt Schmalz", "Metzger", 1970)
        End Get
    End Property
 
    Public Shared ReadOnly Property GundolfBoni As Person
        Get
            Return New Person("Gundolf Boni", "Investmentbanker", 1982)
        End Get
    End Property
 
    Public Shared ReadOnly Property AlbertusSpekulatius As Person
        Get
            Return New Person("Albertus Spekulatius", "Wertpapierbroker", 1990)
        End Get
    End Property
End Class
 
 
Public Class Person
 
    Dim _name As String
    Public ReadOnly Property Name As String
        Get
            Return _name
        End Get
    End Property
 
    Dim _beruf As String
    Public ReadOnly Property Beruf As String
        Get
            Return _beruf
        End Get
    End Property
 
    Public Property _Geburtsjahr As UShort
    Public ReadOnly Property Geburtsjahr As UShort
        Get
            Return _Geburtsjahr
        End Get
    End Property
 
    Public Sub New(pname As String, pberuf As String, pgeburtsjahr As UShort)
        _name = pname
        _beruf = pberuf
        _Geburtsjahr = pgeburtsjahr
    End Sub
End Class

Imports <Projektbezeichnung>.PersonX
 
Public Class frmDemo
 
    Private Sub frmDemo_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Personbearbeitung(KurtSchmalz)
        'oder
        Dim pers As Person = GundolfBoni
 
    End Sub
 
    Public Sub Personbearbeitung(ByVal p As Person)
        'Code zur Bearbeitung einer Person
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist