念の為確認しようと思ってUpDownコントロールをクリックしてみたらボタンを押している間はカウントUPしますが、Change イベントに記入すれば表示できると思うのですが。Private Sub UpDown1_Change() Label1.Caption = myData(UpDown1.Value)End Sub