new_gist_file_0

Private Sub kHook_KeyDown(ByVal sender As Object, ByVal e As WindowsHookLib.KeyboardEventArgs) Handles kHook.KeyDown
        If e.KeyCode = Keys.VolumeUp And Control.ModifierKeys = Keys.Control = False Then
            e.Handled = True
            ShowForm.IsBackground = True
            ShowForm.Start()
            SendCommands("VU")
        ElseIf e.KeyCode = Keys.VolumeDown And Control.ModifierKeys = Keys.Control = False Then
            e.Handled = True
            SendCommands("VD")
        ElseIf e.KeyCode = Keys.VolumeMute And Control.ModifierKeys = Keys.Control = False Then
            e.Handled = True
            SendCommands("MZ")
        End If
    End Sub
    
     Private Sub FormShow()
        Me.Opacity = 1.1
        Me.Refresh()
        Threading.Thread.Sleep(3000)
        Me.Opacity = 0
    End Sub