[VB.NET] GetWindowsTitle

Private Function GetWindowsTitle() As String
    Dim TitleName As String = String.Empty
    For Each p As Process In Process.GetProcesses(System.Environment.MachineName)
        If (p.MainWindowHandle <> IntPtr.Zero) Then
            If Not (String.IsNullOrWhiteSpace(p.MainWindowTitle)) Then
                TitleName &= p.MainWindowTitle & ","
            End If
        End If
    Next
    Return TitleName.TrimEnd(",").Replace(",", vbNewLine)
End Function