Visual Basic.NET How to Program (PDF)

730 Graphics and Multimedia Chapter 16
33
34 Me.Size = New Size(player.Size.Width + 20, _
35 player.Size.Height + 60)
36 End Sub ' openItem_Click
37
38 ' exit application
39 Private Sub exitItem_Click(ByVal sender As System.Object, _
40 ByVal e As System.EventArgs) Handles exitItem.Click
41
42 Application.Exit()
43 End Sub ' exitItem_Click
44
45 ' show the About box for Windows Media Player
46 Private Sub aboutMessageItem_Click(ByVal sender As _
47 System.Object, ByVal e As System.EventArgs) _
48 Handles aboutMessageItem.Click
49
50 player.AboutBox()
51 End Sub ' aboutMessageItem_Click
52
53 End Class ' FrmMediaPlayer
Fig. 16.27 Windows Media Player demonstration (part 2 of 2).