Option Explicit
 
Public Enum LedColors
    Gray = 1
    Green = 2
    Yellow = 3
    Red = 4
End Enum
 
' Standard Eigenschaftswerte:
Const m_def_LedColor = LedColors.Gray
 
' Eigenschaft-Variablen:
Dim m_LedColor As Variant
 
Public Property Get LedColor() As LedColors
 
    LedColor = m_LedColor
 
End Property
 
Public Property Let LedColor(ByVal New_LedColor As LedColors)
Dim Bitmap As LedColors
    m_LedColor = New_LedColor
    PropertyChanged "LedColor"
 
    ' hier den Code einfügen um die passenden Bilder
    ' aus der RES zu laden und anzuzeigen
 
 
Picture1.Picture = LoadResPicture(2, Bitmap)       <----------- WAS MUSS HIER _
  HINN?
 
 
End Property
 
' Eigenschaften für Benutzersteuerelement initialisieren
Private Sub UserControl_InitProperties()
 
    m_LedColor = m_def_LedColor
 
End Sub
 
' Eigenschaftenwerte vom Speicher laden
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    m_LedColor = PropBag.ReadProperty("LedColor", m_def_LedColor)
 
End Sub
 
' Eigenschaftenwerte in den Speicher schreiben
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
 
    Call PropBag.WriteProperty("LedColor", m_LedColor, m_def_LedColor)
 
End Sub

Laufzeitfehler '326'
Ressource mit dem Bezeichner '2' nicht gefunden.