新たにプロジェクトを作り直した上でshuさんのを丸写ししてみましたが何も起こりませんでした。
厳密に言えば
         For i = 0 To 5
             g.FillRectangle(Brushes.Black, i * 35 + 5, 5, 30, 30)
         Next
の部分がなぜ必要なのかわからない（何をする処理なのかはわかります）ので削除しましたが、それ以外は全くコードの変更も追加もしていません。
エラーも発生しないし画面上に何の変化も起こりませんでした。