>>457の場合はこんなイメージでメソッドを分けるといい
Using g As Graphics = CreateGraphics()
　目盛りを表示する(g)
　Dim 一日分のデータ As 知らん = 1日分のデータを読む()
　グラフを描画(一日分のデータ)
End Using
プロシージャなんて呼び方は今すぐやめてメソッドと呼べ
可能な限り引数と戻り値を使え