مثال تشغيل ملف صوتى او فيديو - نسخة قابلة للطباعة

كود :
Private Sub HotKey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HotKey.Tick

        On Error Resume Next

        If GetAsyncKeyState(Keys.MediaPlayPause) Then

            If Me.Player.playState = WMPLib.WMPPlayState.wmppsPlaying Then

                Play.Image = My.Resources.Style_Play_icon

                Player.Ctlcontrols.pause()

            Else

                Play.Image = My.Resources.Style_Pause_icon

                Player.Ctlcontrols.play()

            End If

        End If

        If GetAsyncKeyState(Keys.MediaNextTrack) Then

            GhostListboxLessPretty1.SelectedIndex = GhostListboxLessPretty1.SelectedIndex + 1

            GhostListboxLessPretty2.SelectedIndex = GhostListboxLessPretty2.SelectedIndex + 1

        End If

        If GetAsyncKeyState(Keys.MediaPreviousTrack) Then

            GhostListboxLessPretty1.SelectedIndex = GhostListboxLessPretty1.SelectedIndex - 1

            GhostListboxLessPretty2.SelectedIndex = GhostListboxLessPretty2.SelectedIndex - 1

        End If

        If GetAsyncKeyState(Keys.VolumeUp) Then

            ColorSlider2.Value = ColorSlider2.Value + 5

        End If

        If GetAsyncKeyState(Keys.VolumeDown) Then

            ColorSlider2.Value = ColorSlider2.Value - 5

        End If

    End Sub