[VB] AccessViolationException was unhandled (Error)

Erlend · Jul 19, 2009

Do you know how i can fix this?

Erlend - [VB] AccessViolationException was unhandled (Error) - RaGEZONE Forums

Copied details:

Code:

System.AccessViolationException was unhandled
  Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt."
  Source="System.Windows.Forms"
  StackTrace:
       at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
       at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
       at System.Windows.Forms.Application.Run(ApplicationContext context)
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
       at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
       at LocalHabbo.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
       at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
       at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
       at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
       at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
       at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
       at System.Threading.ThreadHelper.ThreadStart()
  InnerException:

This is my sourcecode:

Code:

       If settings.firstrun = "true" Then
            FolderBrowserDialog1.ShowDialog()
            settings.firstrun = "false"
            settings.path = FolderBrowserDialog1.SelectedPath
            settings.Save()
            MsgBox("Program will now exit, reopen LocalHabbo", , "Info")
            Me.Close()
        Else
            If settings.version = "v18" Then
                WebBrowser1.Navigate(settings.path & "\gdb\sysloader18.html")
            End If
            If settings.version = "v19" Then
                WebBrowser1.Navigate(settings.path & "\gdb\sysloader19.html")
            End If
            If settings.version = "v14" Then
                WebBrowser1.Navigate(settings.path & "\gdb\sysloader14.html")
            End If
            If settings.version = "v16" Then
                WebBrowser1.Navigate(settings.path & "\gdb\sysloader16.html")
            End If
        End If

(The f1 help thing did not say anything about it!)