Private Sub Command1_Click()
    Dim strTest$
    strTest = Text1.Text
    If lngBaseAddress <>  0  Then
        CopyMemory ByVal lngBaseAddress, ByVal StrPtr(strTest),  1 &
        MsgBox "Copied"
    End If
End Sub

Private Sub Form_Load()
    Dim udtSecurityAttributes As SECURITY_ATTRIBUTES
    lnghFileMapping =  0 
    lngBaseAddress =  0 
    lnghFileMapping = CreateFileMapping(INVALID_HANDLE_VALUE, udtSecurityAttributes, SEC_RESERVE Or PAGE_READWRITE,  0 &,  100 &, "TestSwapFile")
    If lnghFileMapping <>  0  Then
        lngBaseAddress = MapViewOfFile(lnghFileMapping, FILE_MAP_ALL_ACCESS,  0 &,  0 &,  100 )
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If lnghFileMapping <>  0  Then
        If lngBaseAddress <>  0  Then
            UnmapViewOfFile lngBaseAddress
        End If
        CloseHandle lnghFileMapping
    End If
End Sub