Private Sub frmLogEvent_Shown(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles Me.Shown
      Dim ar(LogEvent.Count - 1) As String
      LogEvent.CopyTo(ar, 0)
 
      txtLog.Lines = ar
      txtLog.Focus()
      txtLog.SelectionLength = 0
      txtLog.SelectionStart = txtLog.TextLength
      txtLog.ScrollToCaret()
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control