Private Sub Liste4_Click()



Me.Metin6 = Application.CurrentProject.Path & "\" & Liste4.Column(0)

Set player = Me.WindowsMediaPlayer0.Object





WindowsMediaPlayer0.Width = 5670

WindowsMediaPlayer0.Height = 5670

player.settings.autoStart = True

player.url = Me.Metin6

End Sub

şeklinde deneyiniz. Bu kod ile genişlik ve yükseklik 10 cm. olarak belirlenir.

5670 değeri twip değeridir.
567 Twip = 1 cm.,