GUICreate(" Win ", 110, 302, 800, 2)
$L1 = GUICtrlCreateLabel("1", 2, 2, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 24)
$L2 = GUICtrlCreateLabel("2", 2, 40, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$1Button = GUICtrlCreateButton("down", 65, 1, 40, 30)
$2Button = GUICtrlCreateButton("up", 65, 31, 40, 30)
$3Button = GUICtrlCreateButton("Cycle", 65, 62, 40, 30)
GUISetState()
Dim $bj = $L1
Dim $exe[3] = ['程式1(aaa).exe', '程式2(bbb).exe', '程式3(ccc).exe']
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $1Button
If $bj = $L3 Then ContinueLoop
GUICtrlSetBkColor($bj, 0xFFFFFF)
$bj += 1
GUICtrlSetBkColor($bj, 0xFF0000)
msgbox(0, 0, $exe[$bj - 3], 1)
Case $2Button
If $bj = $L1 Then ContinueLoop
GUICtrlSetBkColor($bj, 0xFFFFFF)
$bj -= 1
GUICtrlSetBkColor($bj, 0xFF0000)
msgbox(0, 0, $exe[$bj - 3], 1)
Case $3Button
GUICtrlSetBkColor($bj, 0xFFFFFF)
$bj += 1
If $bj = $L3 + 1 Then $bj = $L1
GUICtrlSetBkColor($bj, 0xFF0000)
msgbox(0, 0, $exe[$bj - 3], 1)
EndSwitch
WEnd
具體應用將 msgbox(0, 0, $exe[$bj - 3], 1) 替換成 Run($exe[$bj - 3]) 即可