Resource Monitor Network Activity per application

i see that he uses tcp stacks i need the performance counters and not the direct stacks:
This is my src with bandwith monitoring total but i need it from a single application like app.exe


Private Function GetTotalBW()


Dim pc As New PerformanceCounterCategory("Network Interface")
Dim instance As String = pc.GetInstanceNames(0)

Dim networkSent As New PerformanceCounter("Network Interface", "Bytes Sent/sec", instance)
Dim networkreceived As New PerformanceCounter("Network Interface", "Bytes Received/sec", instance)
Console.WriteLine("Monitoring " & instance)
Do
Dim kbSent As Integer = networkSent.NextValue() / 1024
Dim kbReceived As Integer = networkreceived.NextValue() / 1024


Dim MBSent As Integer = kbSent / 1024
Dim MBReceived As Integer = kbReceived / 1024




TotalBW.Text = "Sending:" & kbSent & " kb/s" & " - " & MBSent & "MB/S"
TOTALBS.Text = "Receiving: " & kbReceived & " kb/s" & " - " & MBReceived & "MB/S"
Application.DoEvents()
' MsgBox(tmpstring)
' Threading.Thread.Sleep(1000)
Loop
End Function