.exe Crashs after a Open Cd Drive Command

[Blacktronics]

Hi All i done a Fake Virus in visual Basic 6.0 but it won´t work like it have to do i made some error messages and then this part :

X = MsgBox("Do you like Coffe? here a FREE coffe cup holder !", 0 + 16, "FXDJ9")

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

Here the Application Crashs
the window that have to open after that don´t opens just the sound plays and the appliation crashs

X = MsgBox("CRITICAL ERROR SYSTEM WILL REBOOT NOW", 0 + 16, "SYSTEM FAILURE")

i made buttons one Exit and One Start by pressing the start Key it starts
at the top (in General ) i addet That :
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

[Keithuk]

Hi All i done a Fake Virus in visual Basic 6.0 but it won´t work like it have to do i made some error messages and then this part :

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

I know this is an old topic but no one has given a useful solution.

I made an app like this 8 years ago.

When you open a CD Rom door you use

Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)

when you close it you would use

Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)