Imports System.ComponentModel
Imports System.Windows.Forms.Design
 
<Designer(GetType(myControlDesigner))> _
Public Class vSlider
   '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)
 
   Public Sub New()
      ' This call is required by the Windows Form Designer.
      InitializeComponent()
 
      ' Add any initialization after the InitializeComponent() call.
   End Sub
 
 
   Private Sub vSlider_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Max = 100
      Min = 0
      ...
   End Sub
 
    ...
    ...
 
End Class
 
Friend Class myControlDesigner
   Inherits System.Windows.Forms.Design.ControlDesigner
 
   Protected Overrides Sub PostFilterEvents(ByVal events As _
     System.Collections.IDictionary)
      MyBase.PostFilterEvents(events)
      events.Clear()
   End Sub
 
End Class

MfG
Bigdesaster