Public Function GetFreeMemory() As Single
 
 perfCounterMem = New System.Diagnostics.PerformanceCounter( _
  "Memory", "Available MBytes")     <-------  hier stoppt die Anwendung
 'Freien Speicher ausgeben
    Return perfCounterMem.NextValue()
 
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
    Handles MyBase.Load
 
'PerformanceCounter für Prozessorauslastung
        perfCounter = New System.Diagnostics.PerformanceCounter
        Me.perfCounter.CategoryName = "Processor"
        Me.perfCounter.CounterName = "% Processor Time"
        Me.perfCounter.InstanceName = "_Total"
 
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer3.Tick
               Me.ToolStripStatusLabel5.Text = GetFreeMemory() & " MB Frei"
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer2.Tick
        Try
            'CPU Auslastung in Statusbarpanel6 ausgeben
  Me.ToolStripStatusLabel6.Text = ("CPU Ausl.:") & CInt(perfCounter.NextValue)  _
     & "%"
       Catch ex As Exception
       End Try
    End Sub

VB@rchiv its the Best