Eigenschaftsprozedur Property Let um  alle Eigenschaften zu setzen 
Ist beim Aufruf etwas komisch in der Anwendung, liegt aber an VB6
MSDN-HILFE:
Public Property Let Things(ByVal X As Integer, _
ByVal Y As Integer, ByVal Thing As Variant)
   ' (Code to assign array element omitted.)
End Property
The Property Get declaration must use arguments with the same name and data _
  type as the arguments in the Property Let procedure:
Public Property Get Things(ByVal X As Integer, _
ByVal Y As Integer) As Variant
   ' (Code for retrieval from array omitted.)
End Property
The data type of the final argument in a Property Set declaration must be _
  either an object type or a Variant.
Matching Up the Arguments
The reason for these argument matching rules is illustrated in Figure 9.8, _
  which shows how Visual Basic matches up the parts of the assignment statement _
  with the arguments of a Property Let.
Figure 9.8   Calling a Property Let procedure
 
The most common use for property procedures with multiple arguments is to _
  create property arrays.

'Methode kann alternativ genuzt werden, um alle Parameter an Eigenschaften 
' zuzuweisen
Public Function intdbParameter_Zuordnen(Optional udtdb_Type As CLASS_dbType, _
  Optional strdb_Hostname As String, _
    Optional strdb_User As String, Optional strdb_Name As String, Optional _
    strdb_Password As String) As Integer
 
    On Error GoTo ERROR_intdbParameter_Zuordnen
 
    If Not ((udtdb_Type = 0) Or (udtdb_Type > 7)) Then
        intdbType = udtdb_Type
    End If
 
    If Not (strdb_Hostname = "") Then
        strdbHostname = strdb_Hostname
    End If
 
    If Not (strdb_User = "") Then
        strdbUser = strdb_User
    End If
 
    If Not (strdb_Name = "") Then
        strdbName = strdb_Name
    End If
 
    If Not (strdb_Password = "") Then
        strdbPassword = strdb_Password
    End If
 
    intdbParameter_Zuordnen = 0             'Kein Fehler bei den Zuordnungen
 
Exit Function
 
ERROR_intdbParameter_Zuordnen:
    intdbParameter_Zuordnen = 1             'Fehler bei den Zuordnungen
 
End Function