   Private Sub CalculateControlSize(ByVal path As String)
     Dim OriginalX, OriginalY As Integer
     Dim NewSize As Size
     Dim Aspect As Double
     Dim pic As Image = Image.FromFile(path)

     OriginalX = PictureBox1.Size.Width   ' Początkowy rozmiar formantu
     OriginalY = PictureBox1.Size.Height

     lblSize.Text = "(" & CStr(pic.Width) & "x" & CStr(pic.Height) & ")"
     Aspect = CDbl(pic.Height) / CDbl(pic.Width) ' Znajdź współczynnik
                                                 ' kształtu 
     If Aspect < 1.0 Then          ' Jeśli wysokość mniejsza niż szerokość 
       NewSize.Height = CInt(Aspect * OriginalX)
       NewSize.Width = OriginalX
       PictureBox1.Size = NewSize
     Else                  ' Szerokość mniejsza niż wysokość
       NewSize.Width = CInt(OriginalY / Aspect)
       NewSize.Height = OriginalY
       PictureBox1.Size = NewSize
     End If

     ' Dopasuj obrazek do formantu
     PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
     ' Załaduj obrazek do formantu.
     PictureBox1.Image = Image.FromFile(path)

   End Sub
