My.Computer Audio, Clipboard, NumLock 
  
 Private Sub TestMyAudio
      Dim clip As String
      My.Computer.Audio.Play("c:\windows\media\tada.wav")
      My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)
      My.Computer.Clipboard.SetText("Put this string on the clipboard!")
      If My.Computer.Clipboard.ContainsText Then
         clip = My.Computer.Clipboard.GetText
      End If
      If My.Computer.Keyboard.NumLock Then
         MsgBox("Numlock is on")
      Else
         MsgBox("Numlock is off")
      End If
   End Sub

My.Computer offers some easy-to-get-at functionality. This sample shows use of My.Computer.Audio, My.Computer.Clipboard, and My.Computer.Clipboard

10/15/2015
TheLonelyProgrammer.Net
Alone in a sea of non-programmers