Hola!
Por que no usas archivos .ini?:
Código vb:
Ver original'EN UN MODULO - FUNCIONES API's PARA LEER ARCHIVOS INI
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'FUNCION PARA LEER LOS DATOS DEL ARCHIVO INI
Public Function LeerINI(strClave As String, strNombre As String, Optional ByVal strDefecto As String) As String
Dim intTamano As Integer
Dim strTexto As String
Dim strArchivoINI As String
strArchivoINI = App.Path & "\COORDENADAS.INI" 'La variable strArchivoINI contiene el nombre del archivo INI a abrir
strTexto = Space(200)
intTamano = GetPrivateProfileString(strClave, strNombre, "", strTexto, Len(strTexto), strArchivoINI)
If intTamano > 0 Then
strTexto = Left$(strTexto, intTamano)
Else
strTexto = ""
End If
If Len(strTexto) Then
LeerINI = strTexto
Else
LeerINI = strDefecto
End If
End Function
'...
'...
'...
'PARA LLAMAR, EN UN BOTON:
Dim LeerCoordenadas_X as double
Dim LeerCoordenadas_Y as double
LeerCoordenadas_X = LeerINI("BLOQUE1", "COORDENADA_X", "0")
LeerCoordenadas_Y = LeerINI("BLOQUE1", "COORDENADA_Y", "0")
Como ya tienes los datos en las variables LEERCOORDENADAS_X y LEERCOORDENADAS_Y, asignalas al PICTURE.
El archivo "COORDENADAS.INI", debe estar en la misma ruta de la aplicacion, con este formato:
[BLOQUE1]
COORDENADA_X=-10
COORDENADA_Y= 1
[BLOQUE2]
COORDENADA_X= -23
COORDENADA_Y= -11