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

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 639, 479)
    Call SetGraphicsWindow(0, 0, 639, 479)
  ......
End Sub

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

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

    Call SetViewPort(0, 0, 959, 719)

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

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

Sub InitializeGraphics()
    Call SetViewPort(0, 0, 639, 479)
    Call SetGraphicsWindow(-4, 3, 4, -3)
  ......
End Sub