lstrcpynA (Kernel32)

Usage

    <DllImport("kernel32.dll", EntryPoint:="lstrcpynA")>
    Shared Function lstrcpyn(ByVal lpString As StringBuilder, ByVal lpString2 As String, ByVal iMaxLength As Integer) As IntPtr
    End Function

        Dim str1 As New StringBuilder
        Dim str2 As String
        str2 = "Windows API"

        Dim rtvl As IntPtr
        rtvl = lstrcpyn(str1, str2, 8)