vb.net，测试过，panel2在panel1内部，panel2的宽度比panel1稍大，足以隐藏滚动条：

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  Panel1.HorizontalScroll.Visible = False
  Panel1.VerticalScroll.Visible = False

  Panel2.AutoScroll = True
  Panel2.HorizontalScroll.Visible = False
  Panel2.VerticalScroll.Visible = True

End Sub

Private Sub Panel2_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel2.MouseWheel
  If Panel2.Bounds.Contains(e.Location) Then
    Dim vScrollPosition As Integer = Panel2.VerticalScroll.Value
    vScrollPosition = e.Location.Y
    Panel2.Invalidate()
  End If
End Sub

Private Sub Panel2_MouseEnter(sender As Object, e As EventArgs) Handles Panel2.MouseEnter
   Panel2.Select()
End Sub

End Class

这与2个面板一起工作，它肯定会与一个面板中的任何东西一起工作，在另一个面板中，比如datagridview，你所要做的就是使宽度足够大，以隐藏栏
这是一种简单的方法，因为如果您想真正隐藏它们，则需要覆盖原始控件

谢谢大家的支持。我已经自己解决了。我分享的代码，以防任何人需要帮助

Private Sub VScrollBar1_VisibleChanged(ByVal sender As Object, ByVal e As EventArgs)
        Try
            If TypeOf (sender) Is VScrollBar Then
                Dim scrollBar As VScrollBar = CType(sender, VScrollBar)
                If TypeOf (scrollBar.Parent) Is KryptonExtendedGrid Then
                    Dim KryptonGrid As KryptonExtendedGrid = CType(scrollBar.Parent, KryptonExtendedGrid)
                    If KryptonGrid.ScrollControl IsNot Nothing Then
                        If KryptonGrid.ScrollBars = ScrollBars.Vertical  Then
                            KryptonGrid.ScrollBars = ScrollBars.None
                            KryptonGrid.ScrollControl.DownButton.Enabled = True
                        Else
                            KryptonGrid.ScrollControl.DownButton.Enabled = False
                        End If
                    End If
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub