コード: 全て選択
Dim Expression[ELM(3)] = ["Angry", "Enjoy", "Sad"] As String
Dim RnS As Long
Sub Menu_SPEAKBTM_Click()
ShowWindow(hMenu,SW_HIDE)
ShowWindow(hMessage,SW_SHOW)
RANDOMIZE
RnS=Int(Rnd()*3+1)
SetDlgItemText(hMessage, MesBox, Expression[RnS])
End Sub
ほんとすみません。_|\○_