Public Class myControl
 
   'Private Variabeln und Konstanten
   Private m_Value As Double
   Private m_Min As Double
   Private m_Max As Double
 
   'Events
   Public Event MaxChanged()
   Public Event MinChanged()
   Public Event ValueChanged()
   Public Shadows Event Validated()
   Public Shadows Event SizeChanged(ByVal sender As Object, ByVal e As _
     System.EventArgs)
 
 
   Private Sub vSlider_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
     MyBase.Events.AddHandlers(Me.Events)
     ...
     End Sub
 ....
 ....
EndClass

MfG
Bigdesaster