Option Strict On
Public Class Form1
    Private x, x1, y, y1 As Integer
    Private counto As Integer = 1
    Private Const yomikomiSuu As Integer = 3
    Private dataa As Integer
    Private mojii As String = "000000020020040070100100125211140000000000"
    Private data_suu As Integer = 5

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        For ii As Integer = 0 To data_suu
            hyouji()
            line(e.Graphics)
            counto -= yomikomiSuu
        Next
    End Sub
    Private Sub dainyuu()
        dataa = CInt(Mid(mojii, counto, yomikomiSuu))
    End Sub
    Private Sub line(ByVal g As Graphics)
        g.DrawLine(Pens.Green, x, x1, y, y1)
    End Sub
    Private Sub hyouji()
        dainyuu()
        x = dataa
        counto += yomikomiSuu
        dainyuu()
        x1 = dataa
        counto += yomikomiSuu
        dainyuu()
        y = dataa
        counto += yomikomiSuu
        dainyuu()
        y1 = dataa
    End Sub
End Class
この場合のmojiiの""の中の数字の容量は最大どれくらい入りますか？
オーバー風呂の数字が知りたいなぁ〜

> Option Strict On
> Public Class Form1
>     Private x, x1, y, y1 As Integer
>     Private counto As Integer = 1
>     Private Const yomikomiSuu As Integer = 3
>     Private dataa As Integer
>     Private mojii As String = "000000020020040070100100125211140000000000"
>     Private data_suu As Integer = 5
>
>     Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
>         For ii As Integer = 0 To data_suu
>             hyouji()
>             line(e.Graphics)
>             counto -= yomikomiSuu
>         Next
>     End Sub
>     Private Sub dainyuu()
>         dataa = CInt(Mid(mojii, counto, yomikomiSuu))
>     End Sub
>     Private Sub line(ByVal g As Graphics)
>         g.DrawLine(Pens.Green, x, x1, y, y1)
>     End Sub
>     Private Sub hyouji()
>         dainyuu()
>         x = dataa
>         counto += yomikomiSuu
>         dainyuu()
>         x1 = dataa
>         counto += yomikomiSuu
>         dainyuu()
>         y = dataa
>         counto += yomikomiSuu
>         dainyuu()
>         y1 = dataa
>     End Sub
> End Class
> この場合のmojiiの""の中の数字の容量は最大どれくらい入りますか？
> オーバー風呂の数字が知りたいなぁ〜

このプログラムは実行しないほうがいい。
ちょっと走りました！！（暴走）
描画はリソースを使おうね。
では。

>     Private mojii As String = "000000020020040070100100125211140000000000"

String型の最大格納文字数を質問していると思います。
検索しても結構見つかりませんね。最大値は無い（メモリ依存）とかいう投稿もあり。

「String変数の最大格納文字数」
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=15169&forum=7
を見てもらえませんか？
私の環境では規制がかかっており、このページは読めません。

> >     Private mojii As String = "000000020020040070100100125211140000000000"
>
> String型の最大格納文字数を質問していると思います。
> 検索しても結構見つかりませんね。最大値は無い（メモリ依存）とかいう投稿もあり。
>
> 「String変数の最大格納文字数」
> http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=15169&forum=7
> を見てもらえませんか？
> 私の環境では規制がかかっており、このページは読めません。
ども＾＾
4ＧＢだそです。
すごいなぁ。