Private Sub PropertyPage_SelectionChanged()
  <font color=green>' aktuelle Eigenschaften in der Eigenschaften-Seite 
  ' anzeigen</font>
 
  With SelectedControls(0)
    Combo1.ListIndex = .Alignment
  End With
End Sub
 
Private Sub PropertyPage_ApplyChanges()
  <font color=green>' Änderungen übernehmen</font>
  Dim X As Integer
 
  For X = 0 To SelectedControls.Count
    With SelectedControls(X)
      .Alignment = Combo1.ListIndex
    End With
  Next X
End Sub