C# / VB.NET - [VB.NET] Sapere nome applicazione su cui si sta lavorando

Ciao a tutti.
Lavorando a un vecchio progetto in vb.net mi sono reso conto che con questo codice:

 Dim window as string
 Dim activewindow As New String(Chr(0), 100)
                GetWindowText(GetForegroundWindow, activewindow, 100)
                activewindow = activewindow.Substring(0, InStr(activewindow, Chr(0)) - 1)
                If window <> activewindow Then
                    window = activewindow
                    RichTextBox1.Text = RichTextBox1.Text + vbCrLf + activewindow
                End If

in windows 7 non riesco a sapere il nome dell'applicazione sulla quale sto lavorando... su windows xp ho provato è funiona correttamente.. sapete dirmi perchè non funziona su windows 7? Grazie.