costruire un OCX

[xegallo]

per la fase di progettazione non so ma se desideri passare i valori solo all'avvio del componente basta passarli nell'evento initialize della classe

Enum Apparence
   Flat = 0
   Tridimensionale = 1
End Enum

Private m_aspettoPic As Apparence
Private m_aspettoScroll As Apparence
Private m_speed As Integer

Private Sub UserControl_Initialize(ByVal aspPic As Apparence, ByVal aspScr As Apparence)
   m_aspettoPic = aspPic
   m_aspettoScroll = aspScr
End Sub

Property Get AspettoPic() As Apparence
   AspettoPic = m_aspettoPic
End Property

Property Get AspettoScroll() As Apparence
   AspettoScroll = m_aspettoScroll
End Property

Property Get Speed() As Long

End Property

Property Let Speed(ByVal millisecond As Integer)

End Property