Public Class Form1
 
    Private Declare Function GetForegroundWindow Lib "user32" Alias _
      "GetForegroundWindow" () As IntPtr
    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As _
    System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As _
    Integer) As Integer
    Private makel As String
 
    Private Function GetCaption() As String
        Dim Caption As New System.Text.StringBuilder(256)
        Dim hWnd As IntPtr = GetForegroundWindow()
        GetWindowText(hWnd, Caption, Caption.Capacity)
        Return Caption.ToString()
    End Function
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick, Timer1.Tick
        Dim CapTxt As String = GetCaption()
        If makel <> CapTxt Then
            makel = CapTxt
 
            Me.ListBox1.Items.Add(makel) ' Hinzufügen!...
            If makel = "GTA:SA:MP" Then
                MsgBox("Das Spiel läuft!")
                End
            End If
        End If
    End Sub
 
End Class