> Dim items() As String = quiz.Split(",")
折角読み取ったデータが、一切使われていないようですが…。


> はいどうぞこちらです
Paint イベントの中で、毎回ファイルを読み込むのは避けるべきです。
「データの読み込み」と「データの描画」は別の処理にしましょう。


> Dim fnt As New Font("MS UI Gothic", 12)
毎回 New するのではなく、デザイン時にあらかじめ picturebox11.Font を設定しておき、
　e.Graphics.DrawString("揚げせん食う？", picturebox11.Font, Brushes.Green, 40, 20)
のようにすることをお奨めします。

もし、Font を New するのであれば、使い終わった段階で
明示的に破棄せねばなりません。(Dispose メソッドを呼ぶか、
または、Using ブロックで囲む必要があるということです)