Creat a command button

[shanaka95]

Hi..i want to creat a autorun programme to cd's which i am writing.so i want to creat that programme using vb 6.
now i want to creat a command button when i click on it open a seperate window and browse the cd..please help me to creat that..

[mustaffa hasan]

declare function mcisendstring lib"winmm.dll" alais "mcisendstringA"

command1_click()
retvalue=mcisendstring("set cdaudio door open",returnstring,127,0)
end sub

command2_click()
retvalue=mcisendstring("set cdaudio door closed",returnstring,127,0)
end sub

[C0ding]

In my case this is how i do it...
1.) Create an Autorun file, do this by opening Notepad, and add this:

[autorun]
Open=Your-Main-Window-CD-Program.exe
Icon=Your-Main-Window-CD-Program.exe

Then save it as: Autorun.ini

Then go back to your VB6 project and on that main window program add this code:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
ShellExecute 0, vbNullString, "\Name of some folder on that CD that you might want to browse to it", vbNullString, vbNullString, vbNormalFocus
End Sub

You can add it to a command button, or have the code to be execute on runtime.
Example:

Private Sub Form_Load()
Code here
End Sub