Размер формы - VB

Формулировка задачи:

Подскажите пожалуйста как сделать форму произвольных размеров т.е., на форму наносятся контролы рисуются линии но они (контролы и линии) выходят далеко за пределы формы, не все конечно, только те которые выходят за пределы масштаба ("не хватает разрешения экрана" я делаю типа карты чтоб можно было как бы прокручивать форму ввех-вниз при этом отсчет пикселов идет из центра экрана не пойму как сделать это, а контролы и линии надо нанести сразу при загрузке формы, хм... или поэкранно).

Решение задачи: «Размер формы»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Dim</font> XX <font color="blue">As</font> <font color="blue">Single</font>, YY <font color="blue">As</font> <font color="blue">Single</font>, Down <font color="blue">As</font> <font color="blue">Boolean</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
  pic.Picture = LoadPicture(<font color="teal">"D:\f\Daily\2007_01_27\waqlls\aaa.jpg"</font>)
  
  pic.Left = (<font color="blue">Me</font>.ScaleWidth - pic.Height) / <font color="darkblue"><b>2</b></font>
  pic.Top = (<font color="blue">Me</font>.ScaleHeight - pic.Height) / <font color="darkblue"><b>2</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> pic_MouseDown(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
  Down = True
  XX = X
  YY = Y
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> pic_MouseMove(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
  <font color="blue">If</font> Down <font color="blue">Then</font>
    pic.Left = pic.Left + (X - XX)
    pic.Top = pic.Top + (Y - YY)
  <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> pic_MouseUp(Button <font color="blue">As</font> <font color="blue">Integer</font>, Shift <font color="blue">As</font> <font color="blue">Integer</font>, X <font color="blue">As</font> <font color="blue">Single</font>, Y <font color="blue">As</font> <font color="blue">Single</font>)
  Down = False
<font color="blue">End</font> <font color="blue">Sub</font>

                        