Shared Function _ mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As _ String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As _ IntegerEnd FunctionSub OpenCDDoor() mciSendString("Set CDAudio Door Open Wait", vbNullString, 0, 0)End SubSub CloseCDDoor() mciSendString("Set CDAudio Door Closed Wait", vbNullString, 0, 0)End Sub

Why the World Needs More Technology Leadership
As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.