'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"