little confused

[twistedmike]

OK i have wrote code that is supposed to open and close CD tray the code works but when i tried to make the code all i one button that's where i got confused. here's the code

Public Class Form1
    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
   (ByVal lpCommandString As String, ByVal lpReturnString As String, _
   ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim retval As Long
        If retval = mciSendString("set CDAudio door open", "", 0, 0) Then

        Else : retval = mciSendString("set CDAudio door closed", "", 0, 0)

        End If
    End Sub

End Class

basically what i wanted to do was make one button open it then when clicked to would close but i also wanted the text on the button to change along with it. so when clicked the first time the button would say open then when clicked again it would say close. any idea how i could do this? thanks in advance for any help.

[moa]

Hello,

Make a "switch" :

set the caption of your button to "open" at the beginning;
Then ;

Private Sub Command1_Click()
  If Command1.Caption = "open" Then Command1.Caption = "closed" Else Command1.Caption = "open"
End Sub

and then refer to the caption, that way :

mciSendString("set CDAudio door" & command1.caption ......

Now : this is the principle and it would work like that with VB6

You will have to transpose it to VB.Net (you are on the wrong section)

EDIT : something else about your post there :
http://www.codeguru.com/forum/showthread.php?t=491519
If your tool is VB.Net, you will have to transform it too (as every Long is an Integer under VB.nat)