Equvalent Code in VB.Net

[visitphanikumar]

Hi All
I have a situation where I need the code the below lines in VB.Net ....Please help me out as soon as possible


[DllImport("winmm.dll", EntryPoint = "mciSendStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
private static extern int mciSendString(string lpstrCommand, string lpstrReturnString, int uReturnLength, int hwndCallback);


Thanks in Advance

[Plater]

Uhh, that pretty much is, except changing the declaration type

[DllImport("winmm.dll", EntryPoint = "mciSendStringA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer 
End Function 
 

[visitphanikumar]

hi
its asking like "IDENTIFIER EXPECTED" for dll import line

[Plater]

be sure you have the correct imports for DLLImport

[visitphanikumar]

be sure you have the correct imports for DLLImport

Hi thanks for your supports I coded as following

<DllImport("winmm.dll")> _
Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

and its Done!!!!!!!!!!!!!!!!!!!!!!!!1