Cd-Rom u acıp kapatmak

Kod:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub

Speakerdan beep cıkarmak


Kod:
Private Sub Command1_Click() Beep End Sub


Windows Hesap Makinesini calıştırmak

Kod:
Private Sub Command1_Click() Call Shell("calc.exe", 1) End Sub

Windows Not defterini calıştırma


Kod:
Private Sub Command1_Click() Call Shell("notepad.exe", 1) End Sub

__________________