Private Sub Form_Load()

''Add Labels to the Combo box
cmbPriority.AddItem "Idle Priority", IDLE_PRIORITY
cmbPriority.AddItem "Normal Priority", NORMAL_PRIORITY
cmbPriority.AddItem "High Priority", HIGH_PRIORITY
cmbPriority.AddItem "Realtime Priority", REALTIME_PRIORITY

cmbPriority.ListIndex = IDLE_PRIORITY
End Sub