VB.NET - Convert joyGetDevCaps function from VB6 to VB.NET

Question

I am clueless how I should convert the following API to VB.NET

Private Const MAXPNAMELEN As Long = 32&

Private Type JOYCAPS
wMid As Integer
wPid As Integer
szPname As String * MAXPNAMELEN
wXmin As Long
wXmax As Long
wYmin As Long
wYmax As Long
wZmin As Long
wZmax As Long
wNumButtons As Long
wPeriodMin As Long
wPeriodMax As Long
End Type

Private Declare Function joyGetDevCaps Lib "winmm.dll" Alias "joyGetDevCapsA" (ByVal id As Long, lpCaps As JOYCAPS, ByVal uSize As Long) As Long

I tried some converters, but what they output was not working. If anybody is really good, could he try to convert it for me and show me how to call it? Especially, I don't know how to instantiate the JOYCAPS when passing it to the function.

I did not find this function on pinvoke.net.

Thank you.

Answer 1

I can't test it, but this should be the straightforward conversion:

Private Const MAXPNAMELEN As Integer = 32

<StructLayout(LayoutKind.Sequential)>
Private Structure JOYCAPS
    Public wMid As Short
    Public wPid As Short
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAXPNAMELEN)>
        Public szPname As String
    Public wXmin As Integer
    Public wXmax As Integer
    Public wYmin As Integer
    Public wYmax As Integer
    Public wZmin As Integer
    Public wZmax As Integer
    Public wNumButtons As Integer
    Public wPeriodMin As Integer
    Public wPeriodMax As Integer
End Structure

<DllImport("winmm.dll")>
Private Shared Function joyGetDevCaps(id As IntPtr, ByRef lpCaps As JOYCAPS, uSize As UInteger) As Integer

End Function

It assumes System.Runtime.InteropServices is imported.