tp = 130
mx = ArrayLen(menu()) - 1
For i = 0 To mx
bttx = menu(i)
btln = SR.Len(bttx) * 14
btlf = Int((fwid - btln) / 2)
bt = "bPS1AM" & i+1
AddButton("fMUPS1AM",bt,btlf,tp,btln,fbut,SR.Strip(bttx) & " ")
AddEvent(bt,Click,"Button_Handler")
Control(bt,Button).FontColor = cWhite
Control(bt,Button).FontSize = 14
If i = mx Then Control(bt,Button).Color = cRed Else Control(bt,Button).Color = cBlue
tp = tp + fbut + fgap
Next