Public Delegate Sub WriteStatusDelegate(ByVal msg As String)
 
    Public Sub WriteStatus(ByVal msg As String)
        With frm_Main
            If .InvokeRequired Then
                .Invoke(New WriteStatusDelegate(AddressOf WriteStatus), msg)
            Else
                .lst_Messages.Items.Add(DateAndTime.Now.ToString & ": " & msg)
                .lst_Messages.SelectedIndex = .lst_Messages.Items.Count - 1
                .lst_Messages.Refresh()
            End If
        End With
    End Sub