Public Sub New()
    InitializeComponents()
    'Other inits here
    AddHandler TextBox1.MouseWheel, AddressOf TBMouseWheel
End Sub

Private Sub TBMouseWheel(sender As Object, e As MouseEventArgs)
    Me.OnMouseWheel(e)
End Sub