<ScrollViewer Name="scroll_div" Width="240" VerticalAlignment="Center" VerticalScrollBarVisibility="Disabled" HorizontalScrollBarVisibility="Hidden">

         <StackPanel Orientation="Horizontal">

             <TextBlock Name="scroll_begin">并非只可以滚动文字，此标签可以更改为任何控件内容。。</TextBlock>

             <ContentControl Name="scroll_end"/>

         </StackPanel>

     </ScrollViewer>

     WithEvents timer As New System.Windows.Threading.DispatcherTimer

     Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)

         Dim xaml As String = System.Windows.Markup.XamlWriter.Save(scroll_begin)

         scroll_end.Content = System.Windows.Markup.XamlReader.Parse(xaml)

         timer.Interval = TimeSpan.FromMilliseconds()

         timer.Start()

     End Sub

     Private Sub timer_Tick(sender As Object, e As EventArgs) Handles timer.Tick

         If (scroll_end.ActualWidth - scroll_div.HorizontalOffset <= ) Then

             scroll_div.ScrollToHorizontalOffset(scroll_div.HorizontalOffset - scroll_begin.ActualWidth)

         Else

             scroll_div.ScrollToHorizontalOffset(scroll_div.HorizontalOffset + )

         End If

     End Sub