Class MainWindow
Private WithEvents Dtimer As New Threading.DispatcherTimer With {
.Interval = TimeSpan.FromSeconds(0.5)
}
Private Sub RichTextBox_TextChanged(sender As Object, e As TextChangedEventArgs) Handles richTextBox.TextChanged
button.Content = RichTextBox.Document.Blocks.Count
RichTextBox.Opacity = 1
RichTextBox.ScrollToEnd()
If RichTextBox.Document.Blocks.LongCount > 50 Then
RichTextBox.Document.Blocks.Remove(RichTextBox.Document.Blocks.FirstBlock)
End If
Dtimer.Start()
End Sub
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
End Sub
**Private Sub Dtimer_Tick(sender As Object, e As EventArgs) Handles Dtimer.Tick
RichTextBox.Opacity = RichTextBox.Opacity - 0.02
button.Content = RichTextBox.Opacity
If RichTextBox.Opacity < 0.01 Then
Dtimer.Stop()
End If
End Sub**
End Class