My.DebugWindow.WriteLine("Test", New Font("Arial", 10, FontStyle.Bold, _
  GraphicsUnit.Point), Color.Red)

Namespace My
 
    Public Module DebugWindow
 
        Public Sub WriteLine(ByVal Text As String, ByVal Schrift As Font, ByVal _
          Farbe As Color)
 
            With Form1.ListView1
                Do Until .Items.Count <= 50
                    .Items.RemoveAt(0)
                Loop
                Dim lstvitem As New ListViewItem(Date.Now.ToString & ": " & _
                  Text)
                lstvitem.ForeColor = Farbe
                lstvitem.Font = Schrift
                .Items.Add(lstvitem)
                .Items(.Items.Count - 1).EnsureVisible()
                If Form1.Visible = True Then .Update()
            End With
 
        End Sub
 
 
        Public Sub WriteLine(ByVal Text As String)
 
            With Form1.ListView1
                Do Until .Items.Count <= 50
                    .Items.RemoveAt(0)
                Loop
                Dim lstvitem As New ListViewItem(Date.Now.ToString & ": " & _
                  Text)
                .Items.Add(lstvitem)
                .Items(.Items.Count - 1).EnsureVisible()
                If Form1.Visible = True Then .Update()
            End With
 
        End Sub
 
    End Module
 
End Namespace