If txtCover.Text <> "" Then
            Dim bmp As Image = Image.FromFile(Me.txtCover.Text)
            Dim vVerhältnis As String
 
            vVerhältnis = bmp.Width / bmp.Height
            If vVerhältnis < 1 Then 'Ist bmp.Width < bmp.Height
                Cover.Height = 700
                Cover.Width = (Cover.Height - 16) * vVerhältnis
                Cover.PictureBox1.Image = bmp
            ElseIf vVerhältnis = 1 Then 'Ist bmp.Width = bmp.Height
                Cover.Height = 700
                Cover.Width = (Cover.Height - 22) * vVerhältnis
                Cover.PictureBox1.Image = bmp
            Else 'Ist bmp.Width > bmp.Height
                Cover.Width = 900
                Cover.Height = (Cover.Width + 32) / vVerhältnis
                Cover.PictureBox1.Image = bmp
            End If
            Cover.ShowDialog(Me)
        End If

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln