Dim Slika1 As Slika
Dim Slika2 As Slika
Dim Odnos(2) As Single
Slika1.Duzina = Image1.Picture.Width / 4
Slika1.Sirina = Image1.Picture.Height / 4
Slika2.Duzina = Image2.Width - 30
Slika2.Sirina = Image2.Height - 30
Odnos(0) = Slika1.Duzina / Slika2.Duzina
Odnos(1) = Slika1.Sirina / Slika2.Sirina
Odnos(2) = Slika1.Duzina / Slika1.Sirina
Slika2.X = Image2.Left
Slika2.Y = Image2.Top
If Odnos(2) > 1 Then
Image1.Width = Slika2.Duzina
Image1.Height = Slika2.Duzina / Odnos(2)
Image1.Top = Slika2.Y + (Slika2.Duzina - Image1.Height) / 2
Image1.Left = Slika2.X + 10
Else
Image1.Height = Slika2.Duzina
Image1.Width = Slika2.Duzina * Odnos(2)
Image1.Top = Slika2.Y + 10
Image1.Left = Slika2.X + (Slika2.Sirina - Image1.Width) / 2
End If
Me.Image1.Stretch = True
Image1.Refresh