Public Class Form1
    Declare Auto Function GetWindowRect Lib "User32" (ByVal hWnd As IntPtr, _
      ByRef lpRect As Rect) As Int32
 
    Public Structure Rect
        Public Left As Int32
        Public Top As Int32
        Public Right As Int32
        Public Bottom As Int32
    End Structure
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Text = IsMinimiert("notepad")
    End Sub
 
    Private Function IsMinimiert(ByVal name As String) As Boolean
        Dim r As Rect
        For Each p As Process In Process.GetProcessesByName(name)
            GetWindowRect(p.MainWindowHandle, r)
            If r.Bottom - r.Top < 27 Then
                Return True
            End If
        Next
    End Function
End Class