Twin Basic

pVar = @Var

Private Type tTest
    sVal As String
    l As Long
    i As Integer
End Type
 
Private Sub TestType()
    Dim tt As tTest, a&
    
    tt = GetTypeExempl(a)
    Debug.Print StrPtr(tt.sVal)
End Sub
 
Private Function GetTypeExempl(a&) As tTest
    With GetTypeExempl
        .sVal = "asdfass"
        Debug.Print StrPtr(.sVal)
    End With
End Function

    Private DeclareWide PtrSafe Function WideCharToMultiByte Lib "kernel32" ( _
            ByVal CodePage As Long, _
            ByVal dwFlags As Long, _
            ByVal lpWideCharStr As Any, _
            ByVal cchWideChar As Long, _
            ByVal lpMultiByteStr As Any, _
            ByVal cbMultiByte As Long, _
            ByVal lpDefaultChar As LongPtr, _
            ByVal lpUsedDefaultChar As LongPtr) As Long
    Private Declare Function SysAllocString Lib "oleaut32" ( _
            ByRef psz As Any) As String
 
    ' Константы для кодовых страниц
    Private Const CP_ACP As Long = 0 ' ANSI кодовая страница
    Private Const CP_UTF8 As Long = 65001 ' UTF-8 кодовая страница
 
    Type clLPCSTR
        lpStr As LongPtr
        
        Private Sub Type_Assignment(ByVal sInp As String)
            Dim bufsize As Long = Len(sInp) + 1
            If bufsize Then
                If Me.lpStr Then FreeMem Me.lpStr
                Me.lpStr = AllocMem(bufsize)
                If WideCharToMultiByte(CP_ACP, 0, sInp, -1, Me.lpStr, bufsize, _
                                        0, 0) Then Else FreeMem Me.lpStr
            End If
        End Sub
        Private Sub Type_Assignment(ByVal lpInp As LongPtr)
            Me.lpStr = lpInp
        End Sub
        Private Function Type_Conversion() As String
            Return SysAllocString(ByVal Me.lpStr)
        End Function
        Private Sub Type_Terminate()
            If Me.lpStr Then FreeMem Me.lpStr
        End Sub
        
        Private Function Type_DebugView() As String
            Return SysAllocString(ByVal Me.lpStr)
        End Function
    End Type
    
    Sub TestCppClass()
        Dim lpcs As clLPCSTR, s As String
        
        s = "Hellow World"
        
        lpcs = s
        
        Dim s2 As String = lpcs
        
        Debug.Print s       
        Debug.Print lpcs
        Debug.Print s2
    End Sub