Option Explicit
 
Private Sub Form_DblClick()
    setMyPriority ' // Seteamos a NORMAL.
End Sub
 
Private Sub Form_Load()
    '   //  THREAD_PRIORITY_NORMAL  Como solo manejasmos un solo hilo no tiene caso cambiar este.
    '   //  REALTIME_PRIORITY_CLASS HAce que nos atienda mas constante el Scheduler del S.O.
    setMyPriority THREAD_PRIORITY_HIGHEST, REALTIME_PRIORITY_CLASS    '   //  Establecemos prioridad en tiempo REAL.
End Sub
 
 

 
Option Explicit
 
Enum PRIORYTYCLASS
    ABOVE_NORMAL_PRIORITY_CLASS = &H8000
    BELOW_NORMAL_PRIORITY_CLASS = &H4000
    HIGH_PRIORITY_CLASS = &H80
    IDLE_PRIORITY_CLASS = &H40
    NORMAL_PRIORITY_CLASS = &H20
    PROCESS_MODE_BACKGROUND_BEGIN = &H100000
    PROCESS_MODE_BACKGROUND_END = &H200000
    REALTIME_PRIORITY_CLASS = &H100
End Enum
 
Enum PRIORYTYTHREAD
    THREAD_MODE_BACKGROUND_BEGIN = &H10000
    THREAD_MODE_BACKGROUND_END = &H20000
    THREAD_PRIORITY_ABOVE_NORMAL = 1
    THREAD_PRIORITY_BELOW_NORMAL = -1
    THREAD_PRIORITY_HIGHEST = 2
    THREAD_PRIORITY_IDLE = -15
    THREAD_PRIORITY_LOWEST = -2
    THREAD_PRIORITY_NORMAL = 0
    THREAD_PRIORITY_TIME_CRITICAL = 15
End Enum
 
Declare Function SetThreadPriority Lib "kernel32" (ByVal GetCurrentThread As Long, ByVal nPriority As Long) As Long
Declare Function SetPriorityClass Lib "kernel32" (ByVal GetCurrentProcess As Long, ByVal dwPriorityClass As Long) As Long
Declare Function GetCurrentThread Lib "kernel32" () As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long
 
Public Function setMyPriority(Optional ByVal ThreadPriority As PRIORYTYTHREAD = THREAD_PRIORITY_NORMAL, Optional ByVal ClassPriority As PRIORYTYCLASS = NORMAL_PRIORITY_CLASS) As Boolean
    ' (http://infrangelux.hostei.com/)
    setMyPriority = SetThreadPriority(GetCurrentThread, ThreadPriority) Or _
                    SetPriorityClass(GetCurrentProcess, ClassPriority)
End Function