Dim a As Integer a = CInt(Mid(My.Resources.HO1, sampu1, 1)) '(リソース,読み込み任意位置,取得する数(1個) Label1.Text = a.ToString sampu1 += 1 If sampu1 > 10 Then sampu1 = 1