[Admiral]

Uzvern, считать ничего не надо.
Создаём PictureBox

Код:

Dim PictureBox1 As New PictureBox()

Добавляем его к форме, по умолчанию в верхнем левом углу.

Код:

Controls.Add(PictureBox1)

и грузим картинку,

Код:

PictureBox1.Load("C:\Windows\Blue Lace 16.bmp")

он примет её размер.

Есть обратная задача, что б картинка приняла размер компонента.
Тогда несомненно указываем его размер

Код:

PictureBox1.Size = New System.Drawing.Size(10, 20)

выбираем режим Streetch, что б картинка приняла пропорции компонента

Код:

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Подробнее здесь.

Me.Size = PictureBox1.Image.Size »

Этот код приводит размеры формы к размерам компонента PictureBox1, и как следствия к размерам загруженной картинки, а не процесс который требует

счиать размеры картинки и по результату создать PictureBox »

как сделать чтобы изображение было по середине экрана? »

Для предложенного варианта трактования изображения (форма изменяющая свой размер под размер картинки) это реализируэться следующим кодом

Код:

Me.Size = PictureBox1.Image.Size
Me.Left = Screen.PrimaryScreen.Bounds.Width / 2 - Me.Left / 2
Me.Top = Screen.PrimaryScreen.Bounds.Height / 2 - Me.Top / 2

См. также Get the Current Screen Resolution (VB.NET)