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
10/15/2015
TheLonelyProgrammer.Net
Alone in a sea of non-programmers