Strange TypeLoad exception in Microsoft.VisualBasic

Hello. I get a very strange exception in my application. While developing my application everything seemed to work fine. After the last debug/test at my PocketPC I had no problems. So, I saved the project and closed VS2003. The next day when I reopened and tried to run my project I got this bizzare error (and the project wouldn't run again):
An unhandled exception of type 'System.TypeLoadException' occurred in System.Windows.Forms.dll
Additional information: Could not load type Microsoft.VisualBasic.Interaction from assembly Microsoft.VisualBasic, Version=7.0.5000.0, Culture=neutral, PublicKeyToken=B03F5F7F11D50A3A
.

The line that caused the error seemed to be the following.


' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage6) Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.SelectedIndex = 0 ' <<<-THIS ONE Me.TabControl1.Size = New System.Drawing.Size(238, 271)

No matter if I tried to change the selected index to 1 or 2, the problem persisted. The strange thing was that I used that TabControl for a long time in my projects and hadn't changed any code for it for a long time.
So, I commented out that line. But, then another problem! This time it was in the Form-Load event when I called my custom Initialization public sub.


PrivateSub frmMain_Load(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesMyBase.Load Init()'<<< THIS LINE End Sub

This time, one again I got a TypeLoad exception, but this time it said:Could not load Microsoft.VisualBasic.Strings from Microsoft.VisualBasic.dll

I haven't tried upgrading OpenNETCF (so it's not a problem concerning OpenNETCF), and I haved added any new references. I also tried adding/removing references for Microsoft.Visualbasic and Microsoft.VisualBasic.Compatibility from the project file explorer, the code and the project properties.
Below is the portion of the code created by Windows Designer:

Imports OpenNETCF.Windows.FormsImports Microsoft.VisualBasicImports SystemImports System.NetImports System.IOImports System.TextImports System.DrawingImports Intelliprog.Windows.Forms.HTMLViewerPublicClass frmMainInherits System.Windows.Forms.FormFriendWithEvents MainMenu1As System.Windows.Forms.MainMenuDim HTMLCodeAsStringDim AnnotationsCodeAsStringDim AnnotationsCurrentIndexAsIntegerDim Text2AnnotateAsStringDim UserInfo_NameAsStringDim FileName_NotepadAsStringDim FileName_SourceAsStringDim FileName_SignatureAsStringDim FileName_XMLAsStringDim WorkingDirectoryAsString = "\My Documents\PocketAnnotator\"Dim URIAsStringDim Modified_flagAsBooleanDim ColoriseColorAsString = "Yellow"Dim WBHistoryAsNew StackDim WBDataAs Intelliprog.Windows.Forms.HTMLDataConst METAAsString = ""Const MAX_POS_IN_ARRAYAsInteger = 100Dim Annotations(MAX_POS_IN_ARRAY, MAX_POS_IN_ARRAY)AsString
#Region " Windows Form Designer generated code "PublicSubNew()MyBase.New()'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) MyBase.Dispose(disposing) End Sub 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents txtURL As OpenNETCF.Windows.Forms.TextBoxEx Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents txtSource As System.Windows.Forms.TextBox Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents OpenFileDialog2 As System.Windows.Forms.OpenFileDialog Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Friend WithEvents OpenFileDialog3 As System.Windows.Forms.OpenFileDialog Friend WithEvents MenuItem36 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem38 As System.Windows.Forms.MenuItem Friend WithEvents pnlUserInfo As System.Windows.Forms.Panel Friend WithEvents btnSaveUserInfo As System.Windows.Forms.Button Friend WithEvents txtNameUserInfo As System.Windows.Forms.TextBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents SaveFileDialog2 As System.Windows.Forms.SaveFileDialog Friend WithEvents SaveFileDialog3 As System.Windows.Forms.SaveFileDialog Friend WithEvents MenuItem39 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem40 As System.Windows.Forms.MenuItem Friend WithEvents btnReset As System.Windows.Forms.Button Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents lblCurrentURI As System.Windows.Forms.Label Friend WithEvents lblCurrentXMLURI As System.Windows.Forms.Label Friend WithEvents btnBrowse As System.Windows.Forms.Button Friend WithEvents btnGO As OpenNETCF.Windows.Forms.ButtonEx Friend WithEvents chkModified As OpenNETCF.Windows.Forms.CheckBoxEx Friend WithEvents cntxtWB As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem45 As System.Windows.Forms.MenuItem Friend WithEvents WB As Intelliprog.Windows.Forms.HTMLViewer Friend WithEvents ImageListMain As System.Windows.Forms.ImageList Friend WithEvents cntxtWindows As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem47 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem49 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem50 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem52 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem53 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem57 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem69 As System.Windows.Forms.MenuItem Friend WithEvents WBAnnotations As Intelliprog.Windows.Forms.HTMLViewer Friend WithEvents lblText2Annotate As OpenNETCF.Windows.Forms.TextBoxEx Friend WithEvents OpenFileDialog4 As System.Windows.Forms.OpenFileDialog Friend WithEvents cntxtAnnotateTools As System.Windows.Forms.ContextMenu Friend WithEvents cntxtColoriseSettings As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem Friend WithEvents SaveFileDialog4 As System.Windows.Forms.SaveFileDialog Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem28 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem30 As System.Windows.Forms.MenuItem Friend WithEvents lstAnnotations As System.Windows.Forms.ListView Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader Friend WithEvents MenuItem37 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem41 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem42 As System.Windows.Forms.MenuItem Friend WithEvents cntxtAnnotations As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem33 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem43 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem48 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem51 As System.Windows.Forms.MenuItem Friend WithEvents ToolBarMain As System.Windows.Forms.ToolBar Friend WithEvents MenuItem46 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem54 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem55 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem56 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem58 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem59 As System.Windows.Forms.MenuItem Friend WithEvents ToolBarAnnotate As System.Windows.Forms.ToolBar Friend WithEvents ToolBarMainButtonHome As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonDummy2 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonWindows As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonWBBack As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonWBRefresh As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonDummy As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonUseAnnotations As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarMainButtonAnnotate As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnotateTools As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnnotateOK As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnnotateCancel As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonSeperator As System.Windows.Forms.ToolBarButton Friend WithEvents MenuItem29 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem34 As System.Windows.Forms.MenuItem Friend WithEvents ToolBarAnnotations As System.Windows.Forms.ToolBar Friend WithEvents ToolBarAnnotationsButtonOpenInBrowser As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnotationsButtonEdit As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnotationsButtonRemove As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnotationsButtonBeam As System.Windows.Forms.ToolBarButton Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents cntxtBeam As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem35 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem44 As System.Windows.Forms.MenuItem Friend WithEvents RichInk1 As Intelliprog.Windows.Forms.RichInk Friend WithEvents RichInkImageList As System.Windows.Forms.ImageList Friend WithEvents ToolBarAnnnotateButtonAnotateVoiceBar As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnotateTextColor As System.Windows.Forms.ToolBarButton Friend WithEvents TabControl2 As System.Windows.Forms.TabControl Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents MenuItem61 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem62 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem64 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem65 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem66 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem67 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem68 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents ToolBarAnnnotateButtonSeperator2 As System.Windows.Forms.ToolBarButton Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents ToolBarAnnnotateButtonAnotateBold As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnotateItalic As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarAnnnotateButtonAnotateUnderline As System.Windows.Forms.ToolBarButton Friend WithEvents SaveFileDialog5 As System.Windows.Forms.SaveFileDialog Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents pnlHome As System.Windows.Forms.Panel Friend WithEvents pctAnnotations As System.Windows.Forms.PictureBox Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents pctBrowse As System.Windows.Forms.PictureBox Friend WithEvents pctCreateAnnotation As System.Windows.Forms.PictureBox Friend WithEvents pctReceiveBeam As System.Windows.Forms.PictureBox Friend WithEvents pctVisitHomepage As System.Windows.Forms.PictureBox Friend WithEvents pctExit As System.Windows.Forms.PictureBox Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain)) Me.MainMenu1 = New System.Windows.Forms.MainMenu Me.MenuItem6 = New System.Windows.Forms.MenuItem Me.MenuItem29 = New System.Windows.Forms.MenuItem Me.MenuItem34 = New System.Windows.Forms.MenuItem Me.MenuItem40 = New System.Windows.Forms.MenuItem Me.MenuItem39 = New System.Windows.Forms.MenuItem Me.MenuItem7 = New System.Windows.Forms.MenuItem Me.MenuItem8 = New System.Windows.Forms.MenuItem Me.MenuItem10 = New System.Windows.Forms.MenuItem Me.MenuItem38 = New System.Windows.Forms.MenuItem Me.MenuItem59 = New System.Windows.Forms.MenuItem Me.MenuItem41 = New System.Windows.Forms.MenuItem Me.MenuItem37 = New System.Windows.Forms.MenuItem Me.MenuItem11 = New System.Windows.Forms.MenuItem Me.MenuItem36 = New System.Windows.Forms.MenuItem Me.MenuItem42 = New System.Windows.Forms.MenuItem Me.MenuItem12 = New System.Windows.Forms.MenuItem Me.MenuItem46 = New System.Windows.Forms.MenuItem Me.MenuItem54 = New System.Windows.Forms.MenuItem Me.MenuItem56 = New System.Windows.Forms.MenuItem Me.MenuItem58 = New System.Windows.Forms.MenuItem Me.MenuItem55 = New System.Windows.Forms.MenuItem Me.txtURL = New OpenNETCF.Windows.Forms.TextBoxEx Me.btnGO = New OpenNETCF.Windows.Forms.ButtonEx Me.txtSource = New System.Windows.Forms.TextBox Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog Me.OpenFileDialog2 = New System.Windows.Forms.OpenFileDialog Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog Me.OpenFileDialog3 = New System.Windows.Forms.OpenFileDialog Me.pnlUserInfo = New System.Windows.Forms.Panel Me.chkModified = New OpenNETCF.Windows.Forms.CheckBoxEx Me.lblCurrentXMLURI = New System.Windows.Forms.Label Me.lblCurrentURI = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.txtNameUserInfo = New System.Windows.Forms.TextBox Me.btnReset = New System.Windows.Forms.Button Me.btnSaveUserInfo = New System.Windows.Forms.Button Me.SaveFileDialog2 = New System.Windows.Forms.SaveFileDialog Me.SaveFileDialog3 = New System.Windows.Forms.SaveFileDialog Me.btnBrowse = New System.Windows.Forms.Button Me.cntxtWB = New System.Windows.Forms.ContextMenu Me.MenuItem45 = New System.Windows.Forms.MenuItem Me.MenuItem23 = New System.Windows.Forms.MenuItem Me.MenuItem30 = New System.Windows.Forms.MenuItem Me.MenuItem27 = New System.Windows.Forms.MenuItem Me.WB = New Intelliprog.Windows.Forms.HTMLViewer Me.ImageListMain = New System.Windows.Forms.ImageList Me.ToolBarMain = New System.Windows.Forms.ToolBar Me.ToolBarMainButtonHome = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonDummy2 = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonWindows = New System.Windows.Forms.ToolBarButton Me.cntxtWindows = New System.Windows.Forms.ContextMenu Me.MenuItem47 = New System.Windows.Forms.MenuItem Me.MenuItem24 = New System.Windows.Forms.MenuItem Me.MenuItem9 = New System.Windows.Forms.MenuItem Me.MenuItem49 = New System.Windows.Forms.MenuItem Me.MenuItem50 = New System.Windows.Forms.MenuItem Me.MenuItem28 = New System.Windows.Forms.MenuItem Me.MenuItem52 = New System.Windows.Forms.MenuItem Me.MenuItem53 = New System.Windows.Forms.MenuItem Me.ToolBarMainButtonWBBack = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonWBRefresh = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonDummy = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonUseAnnotations = New System.Windows.Forms.ToolBarButton Me.ToolBarMainButtonAnnotate = New System.Windows.Forms.ToolBarButton Me.cntxtColoriseSettings = New System.Windows.Forms.ContextMenu Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.MenuItem17 = New System.Windows.Forms.MenuItem Me.MenuItem20 = New System.Windows.Forms.MenuItem Me.MenuItem19 = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MenuItem14 = New System.Windows.Forms.MenuItem Me.cntxtAnnotateTools = New System.Windows.Forms.ContextMenu Me.MenuItem57 = New System.Windows.Forms.MenuItem Me.MenuItem69 = New System.Windows.Forms.MenuItem Me.MenuItem61 = New System.Windows.Forms.MenuItem Me.MenuItem62 = New System.Windows.Forms.MenuItem Me.MenuItem64 = New System.Windows.Forms.MenuItem Me.MenuItem65 = New System.Windows.Forms.MenuItem Me.MenuItem66 = New System.Windows.Forms.MenuItem Me.MenuItem67 = New System.Windows.Forms.MenuItem Me.MenuItem68 = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.WBAnnotations = New Intelliprog.Windows.Forms.HTMLViewer Me.lblText2Annotate = New OpenNETCF.Windows.Forms.TextBoxEx Me.OpenFileDialog4 = New System.Windows.Forms.OpenFileDialog Me.SaveFileDialog4 = New System.Windows.Forms.SaveFileDialog Me.lstAnnotations = New System.Windows.Forms.ListView Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader Me.cntxtAnnotations = New System.Windows.Forms.ContextMenu Me.MenuItem33 = New System.Windows.Forms.MenuItem Me.MenuItem43 = New System.Windows.Forms.MenuItem Me.MenuItem48 = New System.Windows.Forms.MenuItem Me.MenuItem51 = New System.Windows.Forms.MenuItem Me.ToolBarAnnotate = New System.Windows.Forms.ToolBar Me.ToolBarAnnnotateButtonAnnotateOK = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnnotateCancel = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonSeperator = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateTextColor = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateTools = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateVoiceBar = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonSeperator2 = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateBold = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateItalic = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnnotateButtonAnotateUnderline = New System.Windows.Forms.ToolBarButton Me.RichInkImageList = New System.Windows.Forms.ImageList Me.ToolBarAnnotations = New System.Windows.Forms.ToolBar Me.ToolBarAnnotationsButtonOpenInBrowser = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnotationsButtonEdit = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnotationsButtonRemove = New System.Windows.Forms.ToolBarButton Me.ToolBarAnnotationsButtonBeam = New System.Windows.Forms.ToolBarButton Me.TabPage1 = New System.Windows.Forms.TabPage Me.TabPage3 = New System.Windows.Forms.TabPage Me.TabPage2 = New System.Windows.Forms.TabPage Me.TabControl1 = New System.Windows.Forms.TabControl Me.TabPage6 = New System.Windows.Forms.TabPage Me.cntxtBeam = New System.Windows.Forms.ContextMenu Me.MenuItem35 = New System.Windows.Forms.MenuItem Me.MenuItem44 = New System.Windows.Forms.MenuItem Me.RichInk1 = New Intelliprog.Windows.Forms.RichInk Me.TabControl2 = New System.Windows.Forms.TabControl Me.TabPage4 = New System.Windows.Forms.TabPage Me.TabPage5 = New System.Windows.Forms.TabPage Me.pnlHome = New System.Windows.Forms.Panel Me.pctExit = New System.Windows.Forms.PictureBox Me.pctVisitHomepage = New System.Windows.Forms.PictureBox Me.pctReceiveBeam = New System.Windows.Forms.PictureBox Me.pctCreateAnnotation = New System.Windows.Forms.PictureBox Me.pctBrowse = New System.Windows.Forms.PictureBox Me.pctAnnotations = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.SaveFileDialog5 = New System.Windows.Forms.SaveFileDialog ' 'MainMenu1 ' Me.MainMenu1.MenuItems.Add(Me.MenuItem6) Me.MainMenu1.MenuItems.Add(Me.MenuItem46) ' 'MenuItem6 ' Me.MenuItem6.MenuItems.Add(Me.MenuItem29) Me.MenuItem6.MenuItems.Add(Me.MenuItem34) Me.MenuItem6.MenuItems.Add(Me.MenuItem40) Me.MenuItem6.MenuItems.Add(Me.MenuItem39) Me.MenuItem6.MenuItems.Add(Me.MenuItem7) Me.MenuItem6.MenuItems.Add(Me.MenuItem8) Me.MenuItem6.MenuItems.Add(Me.MenuItem10) Me.MenuItem6.MenuItems.Add(Me.MenuItem38) Me.MenuItem6.MenuItems.Add(Me.MenuItem59) Me.MenuItem6.MenuItems.Add(Me.MenuItem11) Me.MenuItem6.MenuItems.Add(Me.MenuItem36) Me.MenuItem6.MenuItems.Add(Me.MenuItem42) Me.MenuItem6.MenuItems.Add(Me.MenuItem12) Me.MenuItem6.Text = "File" ' 'MenuItem29 ' Me.MenuItem29.Text = "Go Home" ' 'MenuItem34 ' Me.MenuItem34.Text = "-" ' 'MenuItem40 ' Me.MenuItem40.Text = "Use annotations!" ' 'MenuItem39 ' Me.MenuItem39.Text = "-" ' 'MenuItem7 ' Me.MenuItem7.Enabled = False Me.MenuItem7.Text = "Import XML..." ' 'MenuItem8 ' Me.MenuItem8.Text = "Export XML..." ' 'MenuItem10 ' Me.MenuItem10.Text = "Save As XML..." ' 'MenuItem38 ' Me.MenuItem38.Text = "-" ' 'MenuItem59 ' Me.MenuItem59.MenuItems.Add(Me.MenuItem41) Me.MenuItem59.MenuItems.Add(Me.MenuItem37) Me.MenuItem59.Text = "Beaming" ' 'MenuItem41 ' Me.MenuItem41.Text = "Send annotations via IR..." ' 'MenuItem37 ' Me.MenuItem37.Text = "Receive via IR..." ' 'MenuItem11 ' Me.MenuItem11.Text = "-" ' 'MenuItem36 ' Me.MenuItem36.Text = "Vocabulary settings..." ' 'MenuItem42 ' Me.MenuItem42.Text = "-" ' 'MenuItem12 ' Me.MenuItem12.Text = "Exit..." ' 'MenuItem46 ' Me.MenuItem46.MenuItems.Add(Me.MenuItem54) Me.MenuItem46.MenuItems.Add(Me.MenuItem56) Me.MenuItem46.MenuItems.Add(Me.MenuItem58) Me.MenuItem46.MenuItems.Add(Me.MenuItem55) Me.MenuItem46.Text = "Help" ' 'MenuItem54 ' Me.MenuItem54.Text = "About..." ' 'MenuItem56 ' Me.MenuItem56.Text = "Visit homepage..." ' 'MenuItem58 ' Me.MenuItem58.Text = "-" ' 'MenuItem55 ' Me.MenuItem55.Enabled = False Me.MenuItem55.Text = "View documentation..." ' 'txtURL ' Me.txtURL.Location = New System.Drawing.Point(1, 1) Me.txtURL.Size = New System.Drawing.Size(217, 20) Me.txtURL.Style = OpenNETCF.Windows.Forms.TextBoxStyle.Default Me.txtURL.Text = "file://\My Documents\disclaimer.htm" ' 'btnGO ' Me.btnGO.BackColor = System.Drawing.Color.Silver Me.btnGO.ImageAlign = OpenNETCF.Drawing.ContentAlignment.MiddleCenter Me.btnGO.Location = New System.Drawing.Point(219, 1) Me.btnGO.Size = New System.Drawing.Size(20, 20) Me.btnGO.Text = "Go" Me.btnGO.TextAlign = OpenNETCF.Drawing.ContentAlignment.MiddleCenter ' 'txtSource ' Me.txtSource.AcceptsReturn = True Me.txtSource.AcceptsTab = True Me.txtSource.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular) Me.txtSource.Location = New System.Drawing.Point(1, 23) Me.txtSource.Multiline = True Me.txtSource.ScrollBars = System.Windows.Forms.ScrollBars.Both Me.txtSource.Size = New System.Drawing.Size(237, 246) Me.txtSource.Text = "HTML Source" Me.txtSource.WordWrap = False ' 'OpenFileDialog1 ' Me.OpenFileDialog1.Filter = "HTM files|*.htm|HTML files|*.html|All files|*.*" ' 'OpenFileDialog2 ' Me.OpenFileDialog2.Filter = "Text files|*.txt" ' 'SaveFileDialog1 ' Me.SaveFileDialog1.Filter = "Text files|*.txt" ' 'OpenFileDialog3 ' Me.OpenFileDialog3.Filter = "All files|*.*" ' 'pnlUserInfo ' Me.pnlUserInfo.Controls.Add(Me.chkModified) Me.pnlUserInfo.Controls.Add(Me.lblCurrentXMLURI) Me.pnlUserInfo.Controls.Add(Me.lblCurrentURI) Me.pnlUserInfo.Controls.Add(Me.Label3) Me.pnlUserInfo.Controls.Add(Me.Label2) Me.pnlUserInfo.Controls.Add(Me.Label1) Me.pnlUserInfo.Controls.Add(Me.txtNameUserInfo) Me.pnlUserInfo.Controls.Add(Me.btnReset) Me.pnlUserInfo.Controls.Add(Me.btnSaveUserInfo) Me.pnlUserInfo.Location = New System.Drawing.Point(1, 21) Me.pnlUserInfo.Size = New System.Drawing.Size(238, 249) ' 'chkModified ' Me.chkModified.AutoCheck = False Me.chkModified.BackColor = System.Drawing.SystemColors.Control Me.chkModified.BorderStyle = System.Windows.Forms.BorderStyle.None Me.chkModified.Checked = False Me.chkModified.CheckState = System.Windows.Forms.CheckState.Unchecked Me.chkModified.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular) Me.chkModified.ForeColor = System.Drawing.SystemColors.ControlText Me.chkModified.Location = New System.Drawing.Point(20, 180) Me.chkModified.Size = New System.Drawing.Size(199, 20) Me.chkModified.Text = "Indicates if it has been saved latetly" Me.chkModified.TextColor = System.Drawing.SystemColors.ControlText ' 'lblCurrentXMLURI ' Me.lblCurrentXMLURI.Location = New System.Drawing.Point(10, 156) Me.lblCurrentXMLURI.Size = New System.Drawing.Size(219, 16) Me.lblCurrentXMLURI.Text = "(not set)" ' 'lblCurrentURI ' Me.lblCurrentURI.Location = New System.Drawing.Point(10, 98) Me.lblCurrentURI.Size = New System.Drawing.Size(219, 16) Me.lblCurrentURI.Text = "(not set)" ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(10, 138) Me.Label3.Size = New System.Drawing.Size(142, 12) Me.Label3.Text = "XML URI:" ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(10, 76) Me.Label2.Size = New System.Drawing.Size(142, 12) Me.Label2.Text = "Current URI annotated:" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(10, 14) Me.Label1.Size = New System.Drawing.Size(159, 12) Me.Label1.Text = "Annotations' author's name:" ' 'txtNameUserInfo ' Me.txtNameUserInfo.Location = New System.Drawing.Point(10, 32) Me.txtNameUserInfo.Size = New System.Drawing.Size(219, 20) Me.txtNameUserInfo.Text = "" ' 'btnReset ' Me.btnReset.Location = New System.Drawing.Point(123, 220) Me.btnReset.Size = New System.Drawing.Size(60, 22) Me.btnReset.Text = "Reset" ' 'btnSaveUserInfo ' Me.btnSaveUserInfo.Location = New System.Drawing.Point(55, 220) Me.btnSaveUserInfo.Size = New System.Drawing.Size(60, 22) Me.btnSaveUserInfo.Text = "Apply" ' 'SaveFileDialog2 ' Me.SaveFileDialog2.FileName = "doc1" Me.SaveFileDialog2.Filter = "XML Files|*.xml" ' 'SaveFileDialog3 ' Me.SaveFileDialog3.Filter = "Bitmap files|*.bmp" ' 'btnBrowse ' Me.btnBrowse.Location = New System.Drawing.Point(219, 1) Me.btnBrowse.Size = New System.Drawing.Size(20, 20) Me.btnBrowse.Text = "..." ' 'cntxtWB ' Me.cntxtWB.MenuItems.Add(Me.MenuItem45) Me.cntxtWB.MenuItems.Add(Me.MenuItem23) Me.cntxtWB.MenuItems.Add(Me.MenuItem30) Me.cntxtWB.MenuItems.Add(Me.MenuItem27) ' 'MenuItem45 ' Me.MenuItem45.Text = "Annotate!" ' 'MenuItem23 ' Me.MenuItem23.Text = "Colorise!" ' 'MenuItem30 ' Me.MenuItem30.Text = "Refresh" ' 'MenuItem27 ' Me.MenuItem27.Text = "Back" ' 'WB ' Me.WB.ClearType = False Me.WB.ControlBorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.WB.FitToWindow = True Me.WB.HideScrollbar = False Me.WB.Location = New System.Drawing.Point(1, 22) Me.WB.Size = New System.Drawing.Size(238, 228) Me.WB.Text = "WebBrowser" Me.WB.ZoomLevel = Intelliprog.Windows.Forms.ZoomLevels.Smaller ' 'ImageListMain ' Me.ImageListMain.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource1"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource2"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource3"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource4"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource5"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource6"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource7"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource8"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource9"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource10"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource11"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource12"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource13"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource14"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource15"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource16"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource17"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource18"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource19"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource20"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource21"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource22"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource23"), System.Drawing.Image)) Me.ImageListMain.Images.Add(CType(resources.GetObject("resource24"), System.Drawing.Image)) Me.ImageListMain.ImageSize = New System.Drawing.Size(16, 16) ' 'ToolBarMain ' Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonHome) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonDummy2) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonWindows) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonWBBack) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonWBRefresh) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonDummy) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonUseAnnotations) Me.ToolBarMain.Buttons.Add(Me.ToolBarMainButtonAnnotate) Me.ToolBarMain.ImageList = Me.ImageListMain ' 'ToolBarMainButtonHome ' Me.ToolBarMainButtonHome.ImageIndex = 19 ' 'ToolBarMainButtonDummy2 ' Me.ToolBarMainButtonDummy2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarMainButtonWindows ' Me.ToolBarMainButtonWindows.DropDownMenu = Me.cntxtWindows Me.ToolBarMainButtonWindows.ImageIndex = 6 Me.ToolBarMainButtonWindows.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton ' 'cntxtWindows ' Me.cntxtWindows.MenuItems.Add(Me.MenuItem47) Me.cntxtWindows.MenuItems.Add(Me.MenuItem24) Me.cntxtWindows.MenuItems.Add(Me.MenuItem9) Me.cntxtWindows.MenuItems.Add(Me.MenuItem49) ' 'MenuItem47 ' Me.MenuItem47.Text = "Open HTML document..." ' 'MenuItem24 ' Me.MenuItem24.Text = "Save HTML document..." ' 'MenuItem9 ' Me.MenuItem9.Text = "Refresh" ' 'MenuItem49 ' Me.MenuItem49.MenuItems.Add(Me.MenuItem50) Me.MenuItem49.MenuItems.Add(Me.MenuItem28) Me.MenuItem49.MenuItems.Add(Me.MenuItem52) Me.MenuItem49.MenuItems.Add(Me.MenuItem53) Me.MenuItem49.Text = "HTML Source" ' 'MenuItem50 ' Me.MenuItem50.Text = "Show" ' 'MenuItem28 ' Me.MenuItem28.Text = "Back" ' 'MenuItem52 ' Me.MenuItem52.Text = "Update Web Browser" ' 'MenuItem53 ' Me.MenuItem53.Text = "Update HTML Source Code" ' 'ToolBarMainButtonWBBack ' Me.ToolBarMainButtonWBBack.ImageIndex = 17 ' 'ToolBarMainButtonWBRefresh ' Me.ToolBarMainButtonWBRefresh.ImageIndex = 18 ' 'ToolBarMainButtonDummy ' Me.ToolBarMainButtonDummy.Enabled = False Me.ToolBarMainButtonDummy.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarMainButtonUseAnnotations ' Me.ToolBarMainButtonUseAnnotations.ImageIndex = 8 Me.ToolBarMainButtonUseAnnotations.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton ' 'ToolBarMainButtonAnnotate ' Me.ToolBarMainButtonAnnotate.ImageIndex = 2 ' 'cntxtColoriseSettings ' Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem2) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem4) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem17) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem20) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem19) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem5) Me.cntxtColoriseSettings.MenuItems.Add(Me.MenuItem14) ' 'MenuItem2 ' Me.MenuItem2.Text = "Yellow" ' 'MenuItem4 ' Me.MenuItem4.Text = "Red" ' 'MenuItem17 ' Me.MenuItem17.Text = "Green" ' 'MenuItem20 ' Me.MenuItem20.Text = "Blue" ' 'MenuItem19 ' Me.MenuItem19.Text = "Cyan" ' 'MenuItem5 ' Me.MenuItem5.Text = "White" ' 'MenuItem14 ' Me.MenuItem14.Text = "Black" ' 'cntxtAnnotateTools ' Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem57) Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem69) Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem61) Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem62) Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem3) Me.cntxtAnnotateTools.MenuItems.Add(Me.MenuItem1) ' 'MenuItem57 ' Me.MenuItem57.Text = "Add hyperlink..." ' 'MenuItem69 ' Me.MenuItem69.Text = "Add file link..." ' 'MenuItem61 ' Me.MenuItem61.Text = "Recognize" ' 'MenuItem62 ' Me.MenuItem62.MenuItems.Add(Me.MenuItem64) Me.MenuItem62.MenuItems.Add(Me.MenuItem65) Me.MenuItem62.MenuItems.Add(Me.MenuItem66) Me.MenuItem62.MenuItems.Add(Me.MenuItem67) Me.MenuItem62.MenuItems.Add(Me.MenuItem68) Me.MenuItem62.Text = "Zoom" ' 'MenuItem64 ' Me.MenuItem64.Text = "75%" ' 'MenuItem65 ' Me.MenuItem65.Text = "100%" ' 'MenuItem66 ' Me.MenuItem66.Text = "150%" ' 'MenuItem67 ' Me.MenuItem67.Text = "200%" ' 'MenuItem68 ' Me.MenuItem68.Text = "300%" ' 'MenuItem3 ' Me.MenuItem3.Text = "Export to RTF..." ' 'MenuItem1 ' Me.MenuItem1.Text = "Export to BMP..." ' 'WBAnnotations ' Me.WBAnnotations.ClearType = False Me.WBAnnotations.ContextMenu = Me.cntxtAnnotateTools Me.WBAnnotations.ControlBorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.WBAnnotations.FitToWindow = True Me.WBAnnotations.HideScrollbar = False Me.WBAnnotations.Location = New System.Drawing.Point(11, 33) Me.WBAnnotations.Size = New System.Drawing.Size(218, 224) Me.WBAnnotations.Text = "WBAnnotations" Me.WBAnnotations.ZoomLevel = Intelliprog.Windows.Forms.ZoomLevels.Smaller ' 'lblText2Annotate ' Me.lblText2Annotate.BackColor = System.Drawing.Color.Yellow Me.lblText2Annotate.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) Me.lblText2Annotate.Location = New System.Drawing.Point(1, 1) Me.lblText2Annotate.MaxLength = 35 Me.lblText2Annotate.Size = New System.Drawing.Size(238, 20) Me.lblText2Annotate.Style = OpenNETCF.Windows.Forms.TextBoxStyle.Default Me.lblText2Annotate.Text = "lblText2Annotate" ' 'OpenFileDialog4 ' Me.OpenFileDialog4.Filter = "Bitmaps|*.bmp|JPEGs|*.jpg|JPEGs|*.jpeg|GIFs|*.gif" ' 'SaveFileDialog4 ' Me.SaveFileDialog4.Filter = "HTML Documents|*.html" ' 'lstAnnotations ' Me.lstAnnotations.Columns.Add(Me.ColumnHeader1) Me.lstAnnotations.ContextMenu = Me.cntxtAnnotations Me.lstAnnotations.LargeImageList = Me.ImageListMain Me.lstAnnotations.Location = New System.Drawing.Point(54, 62) Me.lstAnnotations.Size = New System.Drawing.Size(136, 156) ' 'ColumnHeader1 ' Me.ColumnHeader1.Text = "Annotated text" Me.ColumnHeader1.Width = 60 ' 'cntxtAnnotations ' Me.cntxtAnnotations.MenuItems.Add(Me.MenuItem33) Me.cntxtAnnotations.MenuItems.Add(Me.MenuItem43) Me.cntxtAnnotations.MenuItems.Add(Me.MenuItem48) Me.cntxtAnnotations.MenuItems.Add(Me.MenuItem51) ' 'MenuItem33 ' Me.MenuItem33.Text = "Preview in browser" ' 'MenuItem43 ' Me.MenuItem43.Text = "Edit" ' 'MenuItem48 ' Me.MenuItem48.Text = "Remove" ' 'MenuItem51 ' Me.MenuItem51.Text = "Beam annotation..." ' 'ToolBarAnnotate ' Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnnotateOK) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnnotateCancel) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonSeperator) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateTextColor) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateTools) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateVoiceBar) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonSeperator2) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateBold) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateItalic) Me.ToolBarAnnotate.Buttons.Add(Me.ToolBarAnnnotateButtonAnotateUnderline) Me.ToolBarAnnotate.ImageList = Me.RichInkImageList ' 'ToolBarAnnnotateButtonAnnotateOK ' Me.ToolBarAnnnotateButtonAnnotateOK.ImageIndex = 5 ' 'ToolBarAnnnotateButtonAnnotateCancel ' Me.ToolBarAnnnotateButtonAnnotateCancel.ImageIndex = 6 ' 'ToolBarAnnnotateButtonSeperator ' Me.ToolBarAnnnotateButtonSeperator.Enabled = False Me.ToolBarAnnnotateButtonSeperator.Visible = False ' 'ToolBarAnnnotateButtonAnotateTextColor ' Me.ToolBarAnnnotateButtonAnotateTextColor.DropDownMenu = Me.cntxtColoriseSettings Me.ToolBarAnnnotateButtonAnotateTextColor.ImageIndex = 3 Me.ToolBarAnnnotateButtonAnotateTextColor.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton ' 'ToolBarAnnnotateButtonAnotateTools ' Me.ToolBarAnnnotateButtonAnotateTools.DropDownMenu = Me.cntxtAnnotateTools Me.ToolBarAnnnotateButtonAnotateTools.ImageIndex = 7 Me.ToolBarAnnnotateButtonAnotateTools.Style = System.Windows.Forms.ToolBarButtonStyle.DropDownButton ' 'ToolBarAnnnotateButtonAnotateVoiceBar ' Me.ToolBarAnnnotateButtonAnotateVoiceBar.ImageIndex = 4 Me.ToolBarAnnnotateButtonAnotateVoiceBar.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton ' 'ToolBarAnnnotateButtonSeperator2 ' Me.ToolBarAnnnotateButtonSeperator2.Enabled = False Me.ToolBarAnnnotateButtonSeperator2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarAnnnotateButtonAnotateBold ' Me.ToolBarAnnnotateButtonAnotateBold.ImageIndex = 0 ' 'ToolBarAnnnotateButtonAnotateItalic ' Me.ToolBarAnnnotateButtonAnotateItalic.ImageIndex = 1 ' 'ToolBarAnnnotateButtonAnotateUnderline ' Me.ToolBarAnnnotateButtonAnotateUnderline.ImageIndex = 2 ' 'RichInkImageList ' Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource25"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource26"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource27"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource28"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource29"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource30"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource31"), System.Drawing.Image)) Me.RichInkImageList.Images.Add(CType(resources.GetObject("resource32"), System.Drawing.Image)) Me.RichInkImageList.ImageSize = New System.Drawing.Size(16, 16) ' 'ToolBarAnnotations ' Me.ToolBarAnnotations.Buttons.Add(Me.ToolBarAnnotationsButtonOpenInBrowser) Me.ToolBarAnnotations.Buttons.Add(Me.ToolBarAnnotationsButtonEdit) Me.ToolBarAnnotations.Buttons.Add(Me.ToolBarAnnotationsButtonRemove) Me.ToolBarAnnotations.Buttons.Add(Me.ToolBarAnnotationsButtonBeam) Me.ToolBarAnnotations.ImageList = Me.ImageListMain ' 'ToolBarAnnotationsButtonOpenInBrowser ' Me.ToolBarAnnotationsButtonOpenInBrowser.ImageIndex = 8 ' 'ToolBarAnnotationsButtonEdit ' Me.ToolBarAnnotationsButtonEdit.ImageIndex = 24 ' 'ToolBarAnnotationsButtonRemove ' Me.ToolBarAnnotationsButtonRemove.ImageIndex = 22 ' 'ToolBarAnnotationsButtonBeam ' Me.ToolBarAnnotationsButtonBeam.ImageIndex = 23 ' 'TabPage1 ' Me.TabPage1.Location = New System.Drawing.Point(4, 4) Me.TabPage1.Size = New System.Drawing.Size(230, 245) Me.TabPage1.Text = "Web Browser" ' 'TabPage3 ' Me.TabPage3.Location = New System.Drawing.Point(4, 4) Me.TabPage3.Size = New System.Drawing.Size(230, 245) Me.TabPage3.Text = "Annotation Composer" ' 'TabPage2 ' Me.TabPage2.Location = New System.Drawing.Point(4, 4) Me.TabPage2.Size = New System.Drawing.Size(230, 245) Me.TabPage2.Text = "Annotations" ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage6) Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage2) 'Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(238, 271) ' 'TabPage6 ' Me.TabPage6.Location = New System.Drawing.Point(4, 4) Me.TabPage6.Size = New System.Drawing.Size(230, 245) Me.TabPage6.Text = "Home" ' 'cntxtBeam ' Me.cntxtBeam.MenuItems.Add(Me.MenuItem35) Me.cntxtBeam.MenuItems.Add(Me.MenuItem44) ' 'MenuItem35 ' Me.MenuItem35.Text = "Send selected annotation via IR..." ' 'MenuItem44 ' Me.MenuItem44.Text = "Receive beam..." ' 'RichInk1 ' Me.RichInk1.ContextMenu = Me.cntxtColoriseSettings Me.RichInk1.InkLayer = Intelliprog.Windows.Forms.RichInkLayer.SmartInk Me.RichInk1.Location = New System.Drawing.Point(16, 15) Me.RichInk1.PageStyle = Intelliprog.Windows.Forms.RichInkPageStyle.None Me.RichInk1.PenMode = Intelliprog.Windows.Forms.RichInkPenMode.Pen Me.RichInk1.Size = New System.Drawing.Size(126, 140) Me.RichInk1.ViewMode = Intelliprog.Windows.Forms.RichInkViewMode.TypingView Me.RichInk1.VoiceBarPosition = Intelliprog.Windows.Forms.VoiceBarPositions.Bottom Me.RichInk1.VoiceBarVisible = False Me.RichInk1.WrapMode = Intelliprog.Windows.Forms.RichInkWrapMode.WrapToPage Me.RichInk1.ZoomLevel = Intelliprog.Windows.Forms.RichInkZoomLevel.ZoomLevel100 ' 'TabControl2 ' Me.TabControl2.Controls.Add(Me.TabPage4) Me.TabControl2.Controls.Add(Me.TabPage5) Me.TabControl2.SelectedIndex = 0 Me.TabControl2.Size = New System.Drawing.Size(238, 251) ' 'TabPage4 ' Me.TabPage4.Location = New System.Drawing.Point(4, 4) Me.TabPage4.Size = New System.Drawing.Size(230, 225) Me.TabPage4.Text = "Typing mode" ' 'TabPage5 ' Me.TabPage5.Location = New System.Drawing.Point(4, 4) Me.TabPage5.Size = New System.Drawing.Size(230, 225) Me.TabPage5.Text = "Writing mode" ' 'pnlHome ' Me.pnlHome.BackColor = System.Drawing.Color.FromArgb(CType(128, Byte), CType(255, Byte), CType(128, Byte)) Me.pnlHome.Controls.Add(Me.pctExit) Me.pnlHome.Controls.Add(Me.pctVisitHomepage) Me.pnlHome.Controls.Add(Me.pctReceiveBeam) Me.pnlHome.Controls.Add(Me.pctCreateAnnotation) Me.pnlHome.Controls.Add(Me.pctBrowse) Me.pnlHome.Controls.Add(Me.pctAnnotations) Me.pnlHome.Controls.Add(Me.PictureBox1) Me.pnlHome.Size = New System.Drawing.Size(240, 250) ' 'pctExit ' Me.pctExit.Image = CType(resources.GetObject("pctExit.Image"), System.Drawing.Image) Me.pctExit.Location = New System.Drawing.Point(161, 185) Me.pctExit.Size = New System.Drawing.Size(32, 32) Me.pctExit.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'pctVisitHomepage ' Me.pctVisitHomepage.Image = CType(resources.GetObject("pctVisitHomepage.Image"), System.Drawing.Image) Me.pctVisitHomepage.Location = New System.Drawing.Point(49, 185) Me.pctVisitHomepage.Size = New System.Drawing.Size(32, 32) Me.pctVisitHomepage.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'pctReceiveBeam ' Me.pctReceiveBeam.Image = CType(resources.GetObject("pctReceiveBeam.Image"), System.Drawing.Image) Me.pctReceiveBeam.Location = New System.Drawing.Point(163, 118) Me.pctReceiveBeam.Size = New System.Drawing.Size(32, 32) Me.pctReceiveBeam.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'pctCreateAnnotation ' Me.pctCreateAnnotation.Image = CType(resources.GetObject("pctCreateAnnotation.Image"), System.Drawing.Image) Me.pctCreateAnnotation.Location = New System.Drawing.Point(49, 118) Me.pctCreateAnnotation.Size = New System.Drawing.Size(32, 32) Me.pctCreateAnnotation.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'pctBrowse ' Me.pctBrowse.Image = CType(resources.GetObject("pctBrowse.Image"), System.Drawing.Image) Me.pctBrowse.Location = New System.Drawing.Point(50, 52) Me.pctBrowse.Size = New System.Drawing.Size(32, 32) Me.pctBrowse.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'pctAnnotations ' Me.pctAnnotations.Image = CType(resources.GetObject("pctAnnotations.Image"), System.Drawing.Image) Me.pctAnnotations.Location = New System.Drawing.Point(163, 51) Me.pctAnnotations.Size = New System.Drawing.Size(32, 32) Me.pctAnnotations.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage ' 'PictureBox1 ' Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.PictureBox1.Size = New System.Drawing.Size(240, 256) ' 'SaveFileDialog5 ' Me.SaveFileDialog5.Filter = "RTF Documents|*.rtf" ' 'frmMain ' Me.ClientSize = New System.Drawing.Size(238, 270) Me.Controls.Add(Me.pnlHome) Me.Controls.Add(Me.TabControl2) Me.Controls.Add(Me.btnGO) Me.Controls.Add(Me.txtURL) Me.Controls.Add(Me.WB) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.lstAnnotations) Me.Controls.Add(Me.pnlUserInfo) Me.Controls.Add(Me.WBAnnotations) Me.Controls.Add(Me.txtSource) Me.Controls.Add(Me.btnBrowse) Me.Controls.Add(Me.lblText2Annotate) Me.Controls.Add(Me.RichInk1) Me.Controls.Add(Me.ToolBarAnnotations) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Menu = Me.MainMenu1 Me.Text = "PocketAnnotator" End Sub #End Region Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Init() End Sub

Yesterday, I tried reinstalling and uninstalling components from VS 2003 (include VS 2003), such as PocketPC 2003 SDK and OpenNETCF 1.3. The funny thing is that last night I tried to debug the project again and it worked! No errors at all! So I was happy about it. Unfortunately, today when I ran the project I got exactly the same errors! I'm willing to email you a part of my code if you think you can help!
Please HELP!

[48996 byte] By [sakis_ser] at [2007-12-16]
# 1
Please note that you don't have to SHOUT for help...your post here is a clue that you need help.

The problem you are running into is an FAQ. Bottom line, you cannot reference desktop assemblies in your Smart Device projects. It is very obvious that you are doing that since public keytoken starting with B is for desktop assemblies (for netcf ones they start with 9) plus you mention the VB.Compatibility assembly which is not available on the compact framework.

Use .net compact framework assemblies only.

For more see these threads:
http://groups-beta.google.com/group/microsoft.public.dotnet.framework.compactframework/search?group=microsoft.public.dotnet.framework.compactframework&q=typeloadexception+B77A5C561934E089&qt_g=1&searchnow=Search+this+group

Cheers
Daniel

DanielMoth at 2007-9-9 > top of Msdn Tech,Smart Device Development,Smart Devices VB and C# Projects...
# 2
First of all, thank you very-very much for your quick reply.
I read all the articles you said so, but unfortunately even if you provide an answer to all those people, I still don't understand what I should do.
I may have an additional clue. In my project I use a few msgBoxes, msgBoxResults, and Microsoft.VisualBasic.Left, right and Mid functions. If I remove the references to Microsoft.VisualBasic none of them work. What can I do abou that?
Additionally if I remove the Microsoft.VisualBasic.Compability reference I get the following error (shown in the task list): Namespace or type 'Compatibility' in the project-level Imports 'Microsoft.VisualBasic.Compatibility' cannot be found.

Once again thank you.
sakis

sakis_ser at 2007-9-9 > top of Msdn Tech,Smart Device Development,Smart Devices VB and C# Projects...
# 3

1. You must create all your projects choosing Smart Device Application.
2. When you "Add Reference" to other assemblies/dlls/class libraries/projects, they must have been built against the .net compact framework too (Smart Device Applications).

When you select a reference in solution explorer, down in the properties window there is a Version row. In there, for VS2003, the .net compact framework assemblies will read 1.0.5000. Your own assemblies will have their own version number.

So create the project again following the two rules I just listed. Then add all the code files to it _or_ manually remove all the irrelevant references…

You may get compilation errors because now you are not using desktop assemblies such as the Compatibility namespace missing. Go to your project properties and remove those namespaces and then deal with the compilation errors. Once again, there is no Compatibility for netcf.


Short of doing it for you, there is nothing more I can do from here other than repeat the solution using different phraseology. Those threads I pointed to helped many others like yourself resolve the issue so if you read them carefully I am sure you'll get there.

If you have a specific question on this topic feel free to post back.

Good luck

Cheers
Daniel

DanielMoth at 2007-9-9 > top of Msdn Tech,Smart Device Development,Smart Devices VB and C# Projects...
# 4
It finally worked! All I had to do is to remove any references to Microsoft.VisualBasic from references section, imports section and projects properties.
However whenever i used mgsboxes I had to change everything with Microsoft.VisualBasic.MsgBox. Same goes with MsgBoxResult. I'l do the same thing with any Left, Right, Mid and Trim methods later (I commented them out for now).
I also hard-reseted my device and reinstalled everything from scratch.
Additionally, I now get the following warning: Warning: The dependency 'OpenNETCF, Version=1.3.50511.0, Culture=neutral, PublicKeyToken=30c767b29d52d6e6' in project 'PocketAnnotator' cannot be copied to the run directory because it would overwrite the reference 'OpenNETCF, Version=1.3.50302.0, Culture=neutral'.
but this must have something to do with OpenNETCF versions, right? The application runs ok, besides that.
I hope there won't be any problem, right?
Daniel thank you VERY much! I was seeking for a solution for 2 days... and Iyou gave it! THANKS!
Sakis.
sakis_ser at 2007-9-9 > top of Msdn Tech,Smart Device Development,Smart Devices VB and C# Projects...
# 5

Glad it worked!

Yes the opennetcf issue is separate. We had some issued with the SDF 1.3 install so I suggest you remove automatically and manually all opennetcf stuff from your PC and then install the new and improved SmartDeviceFramework v1.4:
http://www.opennetcf.org/sdf/

For your MsgBox, I suggest you switch to System.Windows.Forms.MessageBox.Show instead of using the VB wrapper. For more on my view on developing with VB see this:
http://www.danielmoth.com/Blog/2004/09/vb-rules-net-way.html

Cheers
Daniel

DanielMoth at 2007-9-9 > top of Msdn Tech,Smart Device Development,Smart Devices VB and C# Projects...