Get a ListBox to scroll to end in WPF VB.net Visual Basic

As discussed here in C#

You can get a ListBox to scroll to end in WPF VB.net Visual Basic

You can add two imports statements:

Imports System.Windows.Automation.Peers

Imports System.Windows.Automation.Provider

And then

Dim svAutomation As ListBoxAutomationPeer = DirectCast(ScrollViewerAutomationPeer.CreatePeerForElement(YOURLISTBOXWINDOW), ListBoxAutomationPeer)

Dim scrollInterface As IScrollProvider = DirectCast(svAutomation.GetPattern(PatternInterface.Scroll), IScrollProvider)

Dim scrollVertical As System.Windows.Automation.ScrollAmount = System.Windows.Automation.ScrollAmount.LargeIncrement

Dim scrollHorizontal As System.Windows.Automation.ScrollAmount = System.Windows.Automation.ScrollAmount.NoAmount

'If the vertical scroller is not available, the operation cannot be performed, which will raise an exception.

If scrollInterface.VerticallyScrollable Then

scrollInterface.Scroll(scrollHorizontal, scrollVertical)

End If