Private Sub frmLogEvent_Load(ByVal sender As Object, ByVal e As _
     System.EventArgs) Handles Me.Load
      Dim ar As System.Array = LogEvent.ToArray
      For Each s As String In ar
         txtLog.Text = txtLog.Text & s & vbCrLf
      Next
      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