Visual Basic

MyDataview.rowfilter = "YEAR(TDate) = " & date.today.year & " AND MONTH(TDate) = " & date.today.month

Public Overridable Function Start(ByVal x As Double, ByVal y As Double, _
    ByVal width As Double, ByVal height As Double) As Boolean
    
    Dim retValue As Boolean = False
    Dim fred As ProcessThread
    Dim waited As Boolean

    _x = x
    _y = y
    _width = width
    _height = height

    'Starts the application with the file, ...
    _process = Process.Start(_app_path, """" & _file.Path & """")
    If Not IsNothing(_process) Then
        '...but it crashes as soon as I try to access a member of _process
        waited = _process.WaitForInputIdle()

        If Not IsNothing(_process.Threads) Then
            fred = _process.Threads.Item(0)
            retValue = EnumThreadWindows(New IntPtr(fred.Id), _
                AddressOf MoveCallback, IntPtr.Zero)
        End If
    End If

    Return retValue
End Function

Private Function MoveWindow(ByVal hWnd As IntPtr, ByVal x As Integer, _
    ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, _
    ByVal bRepaint As Boolean) As Boolean
End Function
<dllimport("user32.dll", setlasterror:="True)"> _
Private Function EnumThreadWindows(ByVal dwThreadId As IntPtr, _
    ByVal lpfn As EnumThreadDelegate, ByVal lParam As IntPtr) As Boolean
End Function

Private Function MoveCallback(ByVal hWnd As IntPtr, _
    ByVal lParam As IntPtr) As Boolean
    Dim screenwidth As Integer = Screen.PrimaryScreen.WorkingArea.Width
    Dim screenheight As Integer = Screen.PrimaryScreen.WorkingArea.Height

    Return MoveWindow(hWnd, 0, 0, 1, screenwidth  / 2, screenheight / 2, True)
End Function
</dllimport("user32.dll",>