str := "あ|い|う"
StringSplit, strArray, str , |
i := 0
Loop, %strArray0%
{
i := i + 1
s := strArray%i%
Menu, MENU1, add, %s%, label
}
Menu, MENU1, SHOW
Return

label:
msgbox, %A_ThisMenuItem%
Return