[RainBow]

[COLOR="#FF0000"]

[COLOR="#FFD700"]
[COLOR="#40E0D0"][COLOR="#FF0000"]ارجو ان ينال اعجابكم
الملفات الممسوحة[/COLOR][/COLOR] bin فقط[/COLOR]

[/COLOR]
لقد نسيت ان اضع هذا فى المثال
قم ب وضع timer وى اجعله True
ثم ضع هذا الكود

كود :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

ثم هذا الكود فى التيمر

كود :

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