Visual Basic Foro

Todo lo que sea configuracion o datos va ahi, solamente los ejecutables, librerias y demas van en la carpeta del programa, es por un tema de seguridad, no se puede modificar nada de un programa si no se tienen los permisos necesarios. Los datos van separados, si miras en esa carpeta vas a ver que todas las aplicaciones guardan algo, esto aparte es util si se quiere hacer un backup, la parte de datos y configuracion esta centralizado en vez de estar mezclada con las aplicaciones.

Olvidate, es imposible en VB, tendrias que hacer drivers etc.

Ahi esta, agregue la opcion de mover los elementos.

Leandro si pasas por aca podes actualizar la descarga que tenes en la pagina.

http://www.2shared.com/file/aUeyXY0R/ucImage_y_ucImageList.html

Leandro mira arme este codigo que te permite compartir valores a nivel de thread, arme un sistemita con un flag y un valor para poder almacenar mas de un parametro, es bastante simple de entender y modificar a gusto.

Option Explicit

Private Const TLS_MINIMUM_AVAILABLE As Long = 64

Private Declare Function TlsGetValue Lib "kernel32.dll" (ByVal dwTlsIndex As Long) As Long
Private Declare Function TlsSetValue Lib "kernel32.dll" (ByVal dwTlsIndex As Long, ByVal lpTlsValue As Long) As Long
Private Declare Function TlsFree Lib "kernel32.dll" (ByVal dwTlsIndex As Long) As Long
Private Declare Function TlsAlloc Lib "kernel32.dll" () As Long

Private Sub Form_Load()
    WriteValue &HCAFECAFE, 1234
    Debug.Print ReadValue(&HCAFECAFE) '&HCAFECAFE es el identificador que le asignamos a la variable
End Sub

Private Sub WriteValue(ByVal lProp As Long, ByVal  lValue As Long)
    Dim lIndex As Long
    lIndex = GetIndex(lProp)
    If Not lIndex = -1 Then
        Call TlsSetValue(lIndex, lValue)
    End If
End Sub

Private Function ReadValue(ByVal lProp As Long) As Long
    Dim lIndex As Long
    lIndex = GetIndex(lProp)
    If Not lIndex = -1 Then
        ReadValue = TlsGetValue(lIndex)
    End If
End Function

Private Function GetIndex(ByVal lProp As Long) As Long
    Dim i       As Long
    Dim lIndex  As Long
   
    '// Try to find our property.
    lIndex = -1
    For i = 0 To TLS_MINIMUM_AVAILABLE - 1
        If TlsGetValue(i) = lProp Then
            lIndex = i + 1
            Exit For
        End If
    Next
   
    Dim lFlagIndex As Long
   
    '// No property found, allocate index.
    If lIndex = -1 Then
        Do
            lFlagIndex = TlsAlloc '// Find two consecutive slots
            lIndex = TlsAlloc
            If lIndex >= TLS_MINIMUM_AVAILABLE Then Exit Function
        Loop While Not lFlagIndex + 1 = lIndex
        Call TlsSetValue(lFlagIndex, lProp)
    End If
End Function


Arme una funcion para redondear de manera arbitraria, podes redondear como quieras como por ejemplo cada 0.25 (cuartos) o podria ser cualquier cosa como ser 0.2 (quintos)

Private Sub Form_Load()
    Debug.Print RoundArbitrary(1.19, 0.25)
End Sub

Private Function RoundArbitrary(ByVal dVal As Double, _
    Optional ByVal dAproximation As Double = 0.25) As Double
    RoundArbitrary = Round(((dVal / dAproximation) + 0.5)) * dAproximation
End Function

http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=67020&lngWId=1

Es un problema de permisos aprentemente como dijo Seba.

Occasionally, I run into Error 0x80004005 when registering these files. This error sounds highly complicated, but what it all boils down to is a rights issue. This error basically means that you don’t have the permissions to register the file you are trying to register.
http://www.windowsnetworking.com/kbase/WindowsTips/WindowsVista/AdminTips/ApplicationCompatibility/TroubleshootingRegsvr32Error0x80004005.html