[HELP] Command Snippets

Private Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" (
ByVal lpstrCommand As String,
ByVal lpstrReturnString As String,
ByVal uReturnLength As Long,
ByVal hwndCallback As Long)
As Long

Private Sub cmdOpenCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Private Sub cmdCloseCD_Click()
Dim lRet As Long
lRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

Is there some kind of list of snippets for computer commands?
E.g Eject disk, cooling fan on, screen off?