ネットカフェにて・・・・

With Form1　　　　　　　'フルスクリーンにする
　　　.BorderStyle = 0
　　　.WindowStyle = 2
End With

For i = 0 to 10000000000　　'この間に逃げる
Next i

do
　　　Form1.Print "あけおめ（w"
loop


・・・実行！