VB.Net สอบถามการเปิดไฟล์ Excel แล้วให้อยู่หน้าสุดของ Windows

        Dim FileName As String = AppPath & "\file\filename.xls"
        Dim xlApp As New Excel.Application

        xlApp.Visible = False
        xlBook = xlApp.Workbooks.Open(FileName, Password:="Password", [ReadOnly]:=True)
        xlApp.WindowState = XlWindowState.xlMaximized
        xlApp.Visible = True

        'Dim xlSheet As Excel.Worksheet = _
        'CType(xlBook.Worksheets(1), Excel.Worksheet)
        'With xlSheet
        '    '.Range("A1").Value = FileName
        '    .Range("A1").Select()
        'End With

        ' Code ที่ส่ง Application ให้มาอยู่หน้าสุดของ Windows (Bring to Front)
        Dim proc As Process() = Process.GetProcessesByName("EXCEL")   ' Procress นี้แล้วแต่ต้องการ ของผมใช้ EXCEL
        If proc.Length > 0 Then AppActivate(proc(0).Id)

        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing
        xlsRang = Nothing
        GC.Collect()