Private mShowScroll As Boolean
  Protected Overrides ReadOnly Property CreateParams() As _
    System.Windows.Forms.CreateParams
    Get
      Dim cp As CreateParams = MyBase.CreateParams
      If Not mShowScroll Then cp.Style = cp.Style And Not &H200000
      If Not mShowScroll Then cp.Style = cp.Style And Not &H100000
      Return cp
    End Get
  End Property
 
  Public Property ShowScrollbar() As Boolean
    Get
      Return mShowScroll
    End Get
    Set(ByVal value As Boolean)
      If value = mShowScroll Then Exit Property
      mShowScroll = value
      If Handle <> IntPtr.Zero Then RecreateHandle()
    End Set
  End Property

Gruss Caddy