<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
    End Function

    Private Sub HideToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HideToolStripMenuItem.Click
        Const SW_HIDE As Integer = 0
        Dim p As Process() = Process.GetProcessesByName("firefox")
        If p.Length > 0 Then
            Dim hWnd As IntPtr = p(0).MainWindowHandle
            ShowWindow(hWnd, SW_HIDE)
        End If
    End Sub

<DllImport("user32.dll")> _
Private Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
End Function

Dim mywindow As Integer
Dim processRunning As Process() = Process.GetProcesses()
Dim Form As Object = New Object()
For Each pr As Process In processRunning
     If pr.ProcessName = "firefox" Then
          mywindow = pr.MainWindowHandle.ToInt32()
          ShowWindow(mywindow, 0)
     End If
Next

# -*- coding: UTF-8 -*-
     
# 4ª edición

miarray = [ [500016,12027],[500417,12028],[500001,12028],[131313,12029]]
puts miarray[0][0].to_s() +" "+ miarray[0][1].to_s()
puts miarray[1][0].to_s() +" "+ miarray[1][1].to_s()
puts miarray[2][0].to_s() +" "+ miarray[2][1].to_s()
puts miarray[3][0].to_s() +" "+ miarray[3][1].to_s()
puts "Ordenado:"

orden = miarray.sort_by{|x| [-x[1], -x[0]]}

puts orden[0][0].to_s() +" "+ orden[0][1].to_s()
puts orden[1][0].to_s() +" "+ orden[1][1].to_s()
puts orden[2][0].to_s() +" "+ orden[2][1].to_s()
puts orden[3][0].to_s() +" "+ orden[3][1].to_s()

500016 12027
500417 12028
500001 12028
131313 12029
Ordenado:
131313 12029
500417 12028
500001 12028
500016 12027