SoloCodigo

'Para aplicar esta funcion tienes que crear el archivo en ascii, y lo unico que contiene es el valor del volumen.

Debes declarar como global la siguiente variable
DIM Volumen as Double

Function ValorVolumen() as double
ArchivoIni=App.path & "\ARCHIVO.INI"
open ArchivoIni for input as #1
input #1, ValorVolumen
close(1)
End Function

'Al iniciar tu aplicacion
Private Sub Form_Load()
  Volumen=ValorVolumen()
.....
.....
EndSub



Private Sub RandTema()
Dim rec1 As ADODB.Recordset
Dim Ntemas As Integer
Dim nroTem As Integer
Dim rn
Label8(0).Caption = ""
Label8(1).Caption = ""
Pasa_Pago = False
Set rec1 = New ADODB.Recordset
rec1.Open "select * from temas", Constri, adOpenStatic, adLockReadOnly
Ntemas = rec1.RecordCount
Randomize
rn = Int((Ntemas * Rnd))   ' Genera valores aleatorios entre 1 y 6.
'rn = Int(Ntemas / 60 * Second(Time))
rec1.MoveFirst
rec1.Move rn
nroTem = rec1(0)
rec1.Close
Set rec1 = Nothing
'Mp1.Stop
Mp3.Controls.Stop
TMRTema.Enabled = True

'AQUI COLOCAS EL VALOR DEL VOLUMEN LEIDO AL INICIO DE TU APLICACION
'Mp1.Volume = Volumen

'Mp1.Volume = -2700 ------------------------> ¿Como Hacer un .ini para manejar este valor externamente?
'Mp1.Open "c:\mp3\" & nroTem & ".mp3"
Mp3.settings.volume = 4
Mp3.URL = "c:\mp3\" & nroTem & ".mp3"

Las cosas no suceden por generacion espontanea... a menos que hayas cambiado algo...

A mi me sucedio exactamente lo mismo, y se me produjo cuando cambie la version del ejecutable, suponiendo que todo iria sin problemas... pero el cuento no fue asi... ocurrio lo mismo que indicas, cada vez que se ejecuta la aplicacion, aparece el Instalador... e instala una version anterior...

Solucion: Desintalar todo... lo relacionado con tu aplicacion.
Generar un instalador nuevo, e instalar nuevamente tu aplicacion...

Sorry, por los detalles, pero lo hice mentalmente, sin probar...

Ahi te va el codigo con ejemplos y probado...


Private Sub command1_Click()
'Se obtiene la fecha de hoy
HoyDia = Date
'Se obtiene el numero serial de la fecha de hoy
SerialHoyDia = DateSerial(Year(HoyDia), Month(HoyDia), Day(HoyDia))

For i = 1 To MSFlexGrid1.Rows - 1
    'Se obtiene el importe
    MSFlexGrid1.Col = 5
    MSFlexGrid1.Row = i
    xImporte = CDbl(MSFlexGrid1.Text)
   
    'Se obtiene el contenido de la celda Destino
    MSFlexGrid1.Col = 7
    MSFlexGrid1.Row = i
    sDestino = Trim(MSFlexGrid1.Text)
   
    If Len(sDestino) = 0 Then
        Suma = Suma + xImporte
    End If
   
    'Se obtiene la fecha de cheque
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Row = i
    sFecha = MSFlexGrid1.Text
   
    'Se obtiene el numero serial de la fecha del cheque
    SerialCheque = DateSerial(Year(sFecha), Month(sFecha), Day(sFecha))
   
    If SerialCheque = SerialHoyDia Then
        For j = 1 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Col = j
            MSFlexGrid1.CellBackColor = vbRed
        Next j
    End If
Next i

MsgBox "Total Cheques:" & Suma

End Sub

Private Sub Form_Load()
MSFlexGrid1.Cols = 8
MSFlexGrid1.Rows = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1: MSFlexGrid1.Text = "Cliente"
MSFlexGrid1.Col = 2: MSFlexGrid1.Text = "N° Cheque"
MSFlexGrid1.Col = 3: MSFlexGrid1.Text = "Banco"
MSFlexGrid1.Col = 4: MSFlexGrid1.Text = "Fecha"
MSFlexGrid1.Col = 5: MSFlexGrid1.Text = "Importe"
MSFlexGrid1.Col = 6: MSFlexGrid1.Text = "Observac"
MSFlexGrid1.Col = 7: MSFlexGrid1.Text = "Destino"

For i = 1 To 30
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
    MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
    MSFlexGrid1.Col = 1: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    MSFlexGrid1.Col = 2: MSFlexGrid1.Text = Format(CInt(Rnd() * 10) + i * 13 + i)
    MSFlexGrid1.Col = 3: MSFlexGrid1.Text = Format(i & "-06-2006", "mmm")
    If i = 5 Or i = 14 Or i = 23 Then
        MSFlexGrid1.Col = 4: MSFlexGrid1.Text = Format(Date, "dd-mm-yyyy")
    Else
        serial = DateSerial(Year(Date), Month(Date), Day(Date)) + i * 6 + 1
        MSFlexGrid1.Col = 4: MSFlexGrid1.Text = Format(serial, "dd-mm-yyyy")
    End If
    MSFlexGrid1.Col = 5: MSFlexGrid1.Text = Format(CInt(Rnd() * 10000), "#,##0")
    MSFlexGrid1.Col = 6: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    If i = 7 Or i = 13 Or i = 21 Or i = 29 Then
        MSFlexGrid1.Col = 7: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    End If
'Cliente, Cheque Numero, Banco, Fecha Cobro, Importe ($), Observaciones y Destino
Next i

End Sub

'Se obtiene la fecha de hoy
HoyDia=Date
'Se obtiene el numero serial de la fecha de hoy
SerialHoyDia=Dateserial(year(HoyDia),month(HoyDia),day(HoyDia))


For i=1 to MSFLEXGRID.MAXROWS-1
     'Se obtiene el importe
      msflexgrid1.col=5
      msflexgrid1.row=i
      xImporte=msflexgrid1.text

     'Se obtiene el contenido de la celda Destino
      msflexgrid1.col=7
      msflexgrid1.row=i
      sDestino=trim(msflexgrid1.text)

      if Len(sDestino)=0 then
         suma=suma + xImporte
      endif

     'Se obtiene la fecha de cheque
      msflexgrid1.col=4
      msflexgrid1.row=i
      sFecha=msflexgrid1.text  

     'Se obtiene el numero serial de la fecha del cheque
     SerialCheque=Dateserial(year(sFecha),month(sFecha),day(sFecha))
 
     if SerialCheque = SerialHoyDia then
          MSFlexGrid1.CellBackColor = vbRed
     endif
next i

msgbox "Total Cheques:" & Suma

Independiente de que seas nuevo en el foro, por la pregunta, me imagino que ademas eres nuevo en todo lo que tiene que ver con programacion...

Para resolver tu problema, supondre lo siguiente:
a). Tienes conocimientos de la herramienta VB
. Tienes conocimientos de bases de datos, y por tanto de tablas y SQL
c). Tienes nociones basicas de seguridad de la informacion, y como opera un sistema de administracion de usuarios.

Por tanto, comencemos...

1). Deberas crear las siguientes tablas

Usuarios   
Campo          Tipo
Username      T(10)
Password       T(50)

Esta tabla contiene todos los usuarios y sus contraseñas


Funciones
Campo                          Tipo
ID_Funcion                     T(20)
Descripcion_Funcion        T(20)

Esta tabla contiene todas las funciones u opciones de menu de tu sistema

Permisos
Campo                   Tipo
Username                 T(10)
ID_Funcion               T(20)
Tipo_Permiso            T(1)

Esta tabla contiene las relaciones de los usuarios y sus permisos a acceder a los diferentes menus u opciones del sistema
El campo Tipo_Permiso, es de tipo caracter de largo 1, y sus posibles valores son...
  S : Tiene permiso
  N : No tiene permiso de accceso


Entonces, teniendo estas tablas definidas, deberas realizar los formularios correspondientes que te permitan administrar cada una de las tablas... supongo que podras con ello, ya que no es parte del problema que tienes.

Ahora, suponiendo que tenemos los datos en las tablas, vamos a ver como ver el tema de los permisos...

Supongamos que tu formulario principal, contiene los siguientes menus y submenus. Se indica el caption y nombre de las opciones.


Sistema                               mnuSistema
    Cambio Password             mnuCambioPassword
    Cambio Usuario                mnuCambioUsername
    Salir                                mnuSalir
Mantencion                           mnuMantencion
    Usuarios                          mnuMantUsuarios
    Funciones                        mnuMantFunciones
    Permisos                         mnuMantPermisos
Procesos                              mnuProcesos
    Proceso 1                        mnuProceso1
    Proceso 2                        mnuProceso2
    Proceso 3                        mnuProceso3

Al cargar la aplicacion, deberas incorporar un formulario que permita ingresar el username y contraseña de usuario.

El usuario al ingresar estos datos, y presionar "ACEPTAR", "OK", "INGRESAR" o cualquier tipo de leyenda que coloques en el caption del boton, deberas incorporar la siguiente funcionalidad.


xUsername=Ucase(Trim(txtUsername))
xPassword=Ucase(Trim(txtPassword))

SentenciaSQL="Select p.ID_Funcion, p.Tipo_Permiso
From Permisos p, Usuarios U
Where
   P.Username = U.Username and
   U.Username = '" & xUsername & "' and "
   U.Password = '" & xPassword & "'"
Buscar registros usando SentenciaSQL
Si No Existen_Registros entonces
   Mostrar Mensaje Indicando "Usuario No Reconocido"
Si NO
   Mientras no sea fin de los registros
        Selecciones en caso de Registro.ID_Funcion
             caso "mnuSistema":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuSistema.Enabled=TRUE
                  si no
                        mnuSistema.Enabled=FALSE
                  Fin Si    
             caso "mnuCambioPassword":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuCambioPassword.Enabled=TRUE
                  si no
                        mnuCambioPassword.Enabled=FALSE
                  Fin Si    
             caso "mnuCambioUsername":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuCambioUsername.Enabled=TRUE
                  si no
                        mnuCambioUsername.Enabled=FALSE
                  Fin Si    
             caso "mnuSalir":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuSalir.Enabled=TRUE
                  si no
                        mnuSalir.Enabled=FALSE
                  Fin Si    
             caso "mnuMantencion":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuMantencion.Enabled=TRUE
                  si no
                        mnuMantencion.Enabled=FALSE
                  Fin Si    
             caso "mnuMantUsuarios":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuMantUsuarios.Enabled=TRUE
                  si no
                        mnuMantUsuarios.Enabled=FALSE
                  Fin Si    
             caso "mnuMantFunciones":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuMantFunciones.Enabled=TRUE
                  si no
                        mnuMantFunciones.Enabled=FALSE
                  Fin Si    
             caso "mnuMantPermisos":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuMantPermisos.Enabled=TRUE
                  si no
                        mnuMantPermisos.Enabled=FALSE
                  Fin Si    
             caso "mnuProcesos":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuProcesos.Enabled=TRUE
                  si no
                        mnuProcesos.Enabled=FALSE
                  Fin Si    
             caso "mnuProceso1":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuProceso1.Enabled=TRUE
                  si no
                        mnuProceso1.Enabled=FALSE
                  Fin Si    
             caso "mnuProceso2":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuProceso2.Enabled=TRUE
                  si no
                        mnuProceso2.Enabled=FALSE
                  Fin Si    
             caso "mnuProceso3":
                  Si registro.Tipo_Permiso="W" entonces
                       mnuProceso3.Enabled=TRUE
                  si no
                        mnuProceso3.Enabled=FALSE
                  Fin Si    
        Fin Caso
       Avanzar al siguiente registro
   Fin Mientras
Fin Si

Esto es lo mas basico en terminos de administracion de permisos.... lo puedes complicar, aumentando el nivel de permisos, como por ejemplo, acceso, solo lectura, permiso para eliminar, etc.

Cuando traspases los datos a la planilla, traspasalos con una comilla simple antes del valor.... en estos casos

'3-1
'1-1
'2-1
'2-2

Para que al guardarlos en la celda, excel, los considere como caracteres y no como fecha.

Lamento tener que responderte, pero hace tiempo, pretendi hacer lo mismo, y despues de mucho buscar, me encontre que la estructura de ejecucion de VB6 no permite manejo de hilos, por lo que, no permite hacer multitareas.

Fue superdesilusionante, pero no habia nada que hacer... simplemente tuve que abocarme a VB .NET

Si, es posible.

Copia todas las sentencias FTP en un archivo .BAT y lo ejecutas desde VB...


   v_tipo = "ascii"

   'Crea archivo de comandos ftp según la acción que corresponda
   v_Archivo_ftp = m_dir_local & "\" & "ArchFtp.dat"
   'Archivo Semaforo
   v_Archivo_tmp = m_dir_local & "\" & "EstaOcup.tmp"
   v_Archi = FreeFile
   Open v_Archivo_ftp For Output As #v_Archi
   Print #v_Archi, "open " & m_Servidor
   Print #v_Archi, m_usuario
   Print #v_Archi, m_Password

   Select Case m_accion
      Case "E": 'Enviar archivos al directorio remoto
               Print #v_Archi, "cd " & m_dir_remoto
               Print #v_Archi, v_tipo
               Print #v_Archi, "put " & LCase(m_dir_local & "\" & m_archivo)
               '---Valida existencia de archivo-------------------
               Print #v_Archi, "mls"
               Print #v_Archi, m_archivo
               Print #v_Archi, m_dir_local & "\retftp.txt"
               Print #v_Archi, "y"
               '---Valida existencia de archivo-------------------      
      Case "T": 'Traer archivos del directorio remoto
               Print #v_Archi, "cd " & m_dir_remoto
               Print #v_Archi, v_tipo
               Print #v_Archi, "get"
               Print #v_Archi, LCase(m_archivo)
               Print #v_Archi, LCase(m_dir_local & "\" & m_archivo)
   End Select  
   Print #v_Archi, "!del " & v_Archivo_tmp
   Print #v_Archi, "close"
   Print #v_Archi, "bye"  
   Close #v_Archi

   'Crea archivo semaforo
   v_Archi = FreeFile
   Open v_Archivo_tmp For Output As #v_Archi
   Print #v_Archi, "Esta Ocupado"
   Close #v_Archi
   
   'Ejecuta archivo de comandos ftp
   Comando_Ejecuto = "ftp -s:" & v_Archivo_ftp
   Ejec = Shell(Comando_Ejecuto, vbHide)
   
   Archivo_tmp = "EstaOcup.tmp"
   'Mientras exista archivo semaforo quedese en el loop
   While Archivo_tmp = "EstaOcup.tmp"
      Archivo_tmp = dir(v_Archivo_tmp)
   Wend
   
   'Borra archivo de comandos ftp
   Archivo_tmp = dir(v_Archivo_ftp, vbArchive)
   While Archivo_tmp <> ""
      Kill v_Archivo_ftp
      Archivo_tmp = dir(v_Archivo_ftp, vbArchive)
      DoEvents
   Wend

Voy a asumir que eres un "principiante" en programacion... independiente del tipo de lenguaje... ya que lo que acabas de exponer, es un simple ejercicio de clases de programacion...

v1=A^2
v2=B^2
v3=C^2
v4=4*A
v5=v1+v2+v3-v4
v6=SQR(v5)

las otras asignaciones de variables, para obtener tu respuesta de las dejo a ti, ya que poco se entiende la formula completa...

Inserta un control WINSOCK a tu formulario

e inserta el siguiente codigo en el evento LOAD del formulario

msgbox "IP:" & Winsock1.LocalIP

Incorpora a tu proyecto, el componente "Microsoft Windows Common Control 6.0 (SP6)".

En un formulario, agrega:
- 1 control Treeview (a este control, en la propiedad CHECKBOX asignale TRUE)
- 1 control CommandButton

E incorpora el siguiente codigo a tu formulario...

Private Sub Command1_Click()
msg = Empty
For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(i).Checked = True Then
        msg = msg & TreeView1.Nodes(i).Text & vbLf
    End If
Next i
If Len(msg) > 0 Then
    msg = "Se han seleccionado los siguientes nodos..." & vbLf & msg
    MsgBox msg
Else
    MsgBox "No se ha seleccionado ningun nodo"
End If
End Sub

Private Sub Form_Load()
For i = 1 To 7
    Set Nodo = TreeView1.Nodes.Add(, , "R" & i, Format(Date + i, "dddd"))
Next i
Command1.Caption = "Mostrar Seleccionados"
End Sub


SUERTE...

Aun lo logro entender tu problema del todo... pero lo poco que entiendo, se refiere a colocar en un form2, datos generados a partir del form1, pero que cambian a "cada instante"... (por que no poner el codigo entonces en el form2?...)

Prueba lo siguiente...

En el formulario 1, colocas:
- 2 commandbutton
- 1 control timer

y el siguiente codigo
Private Sub Command1_Click()
'Se activa el reloj, para trabajar cada 1 segundo
Form2.Show
Timer1.Interval = 1000
End Sub

Private Sub Command2_Click()
'Se detiene el reloj
Timer1.Interval = 0
'Se descarga el formulario 2
Unload Form2
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
'Cada 1 segundo se actualiza el label del formulario 2
Form2.Label1 = Format(Time, "hh:mm:ss")
End Sub


En el formulario 2, colocas un label

y prueba...