Sub InitializeGraphicsの中で、フォームの左上から640×480ピクセルの範囲に描画領域が設定されています。

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 640, 480)
    Call SetGraphicsWindow(0, 0, 640, 480)
  ......
End Sub

Sub SetViewPortの引数を変更してCallすることにより、描画領域のサイズを変更することができます。

例 左上から480×360ピクセルの範囲に設定する場合

    Call SetViewPort(0, 0, 480, 360)

常に描画領域のサイズを変更して利用したい場合は、Sub InitializeGraphics内でCallしているSetViewPortの引数を変更してください

例 左上から600×400ピクセルの範囲を描画領域とし、右上が正の座標系を指定する場合

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 600, 400)
    Call SetGraphicsWindow(-4, 3, 4, -3)
  ......
End Sub