Freebasic. Как объявить массив строк?

Const Item1 = "asd"
Const Item2 = "dfv"
 
Dim Vector1(1) As WString Ptr = {@Item1, @Item2}
 
Dim Vector2(1) As WString Ptr = {@"irfjoeijr", @"dlkfmvld"}
 
Dim Vector3(1) As String = {"dfvdfv", "dfvdfv"}

#ifndef unicode
#define unicode
#endif
 
#include once "windows.bi"
 
Const ArrayLength As Integer = 1024
Const MaxAllocateMemoryLength As Integer = ArrayLength * SizeOf(WString)
 
' Выделить память под массив для чтения и записи
Dim wVector As WString Ptr Ptr = VirtualAlloc(0, MaxAllocateMemoryLength, MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
 
If wVector = 0 Then
    Print "Не могу выделить память"
    End 1
End If
 
' Заполнить элементы массива
wVector[0] = @"Привет, мир"
wVector[1] = @"Что это?"
 
' Наложить защиту «Только чтение» на память
wVector = VirtualAlloc(wVector, MaxAllocateMemoryLength, MEM_COMMIT, PAGE_READONLY)
 
If wVector = 0 Then
    Print "Не могу изменить защиту памяти"
    End 2
End If
 
' При попытке записи программа упадёт
wVector[0] = @"Это не сработает"
 
' Очистка
Dim bSuccess As Integer = VirtualFree(wVector, 0, MEM_RELEASE)

Dim Vector(1) As Const String = {"dfvdfv", "aaaaaaa"}

Dim Vector(1) As Const String = {"dfvdfv", "aaaaaaa"}

DIM Vector(1) AS CONST STRING = {"dfvdfv", "aaaaaaa"}
 
DIM U AS CONST STRING PTR
U = SADD(Vector(1))
POKE U, ASC("*")
PRINT Vector(1)
SLEEP