(一)窗体居中显示
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
_________________________________________________
( 二)打开光驱
1、opencd.bas中加入以下代码
Public 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
2、窗体中加入以下代码
Private Sub Form_Load()
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub