huh, error = 0 means no error at all Private Sub LoadRecent()
'Load the recent entry's
'load all the menu items under window, but hide them
'until we load a map
Dim i As Integer
On Error GoTo LoadRecent_Error
For i = 1 To 9
Load mnuMaps(i)
mnuMaps(i).visible = False
'load the recent menu from the recent.ini if it exists
Load mnulstRecent(i)
mnulstRecent(i).visible = False
If FileExists(App.path & "\recent.ini") Then
mnulstRecent(i).Caption = INIload("Recent", CStr(i), "", App.path & "\recent.ini")
'if there is a recent entry, make it visible
If mnulstRecent(i).Caption <> "" Then
mnulstRecent(i).visible = True
End If
End If
Next
'as element 0 is already preloaded, we only need to retrieve the
'entry from the ini
If Dir$(App.path & "\recent.ini") <> "" Then
mnulstRecent(0).Caption = INIload("Recent", CStr(0), "", App.path & "\recent.ini")
End If
On Error GoTo 0
Exit Sub
LoadRecent_Error:
Call frmGeneral.AddDebug("*** ERROR " & Err.Number & " (" & Err.description & ") in procedure LoadRecent of Form frmGeneral")
MsgBox "Error " & Err.Number & " (" & Err.description & ") in procedure LoadRecent of Form frmGeneral"
End Sub what you see is that msgbox at the bottom, and the only way it is able to get there is when an error occurs, but 0 isn't an error o_O maybe try putting it to Windows XP Compatiblity ? Edit: crap, it must be the iniload which calls profilewritestring api, which is probably not supported or access level is not high enough to run it. Try running DCME as administrator ?