Dim ProgressBar1 As New ProgressBar ProgressBar1.Value = 30 '変更したい値を入れる
Dim TrackBar1 As New TrackBar MessageBox.Show(TrackBar1.Value) 'メッセージボックスで表示させる