Ja usei desse Jeito
Public Const MAX_MAPX As Byte =19
Public Const MAX_MAPY As Byte =14

Mas não ocorreu nenhuma diferença Obs: EO 2.0

Olha abra o frm_main e mude o tamanho da picscren para o tamanho desejado depois veja ta tamanho dela e divida por dois e coloque em vez de 19 o tamanho dela dividido sakas??? Ela não almentara sozinha

Begin VB.PictureBox picScreen
Appearance = 0 'Flat
BackColor = &H00181C21&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 640
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5760
Left = 150
ScaleHeight = 480
ScaleMode = 3 'Pixel
ScaleWidth = 480
TabIndex = 0
Top = 150
Visible = 0 'False
Width = 7200
ASSIM?

a cara se você quiser almentar a tela e so almentar e colocar uma novo foto no main na pasta gui to falando se você quiser almentar o tamanho da picscreen