Visual Basic

Public Class menuitems
    Public menuitem As String
    Public itemcost As Double

End Class
'Dim totalorderquantity(12) as Integer
Public Class frmtodayscafe
    Inherits System.Windows.Forms.Form

    Public dr As DataRow
    Public item() As menuitems




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fileNamex As String = "menu1.txt"
        Dim dirName As String = _
                    Path.GetDirectoryName(Application.ExecutablePath)
        Dim dt As DataTable
        Dim adapter1 As New OleDbDataAdapter

        Using cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;" & _
                    "Data Source=" & dirName & ";" & _
                    "Extended Properties=""Text;HDR=Yes;FMT=Delimited""")
            ' Open the connection
            cn.Open()

            ' Set up the adapter
            Using adapter As New OleDbDataAdapter( _
                    "SELECT * FROM " & fileNamex, cn)
                dt = New DataTable("menuitems")
                adapter.Fill(dt)

            End Using

        End Using
        
        Redim item(dt.Rows.Count() - 1)

        Dim drcounter As Integer = 0
        For Each  dr As datarow In dt.Rows
            Debug.Print("{0}    {1}", _
                        dr("Menu Items"), _
                        dr("Item Cost"))
            item(drcounter).menuitem = dr("Menu Items").ToString
            item(drcounter).itemcost = dr("Item Cost").ToString
            drcounter += 1
        Next

Dim Table1 As DataTable
        Table1 = New DataTable("Useful Links")
        '------------------------------------------------------------
        Dim adModel As DataColumn = New DataColumn("adModel")
        adModel.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(adModel)

        Dim unId As DataColumn = New DataColumn("unId")
        unId.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(unId)
        '------------------------------------------------------------
        Dim ds As New DataSet()
        ds.Tables.Add(Table1)
        dg.DataSource = Table1
        '------------------------------------------------------------

Public Class CreateTab
  Public Function ReadTab(ByRef tpRead As TabPage, ByVal dgCurrentRow As DataGridViewRow)
.
.dynamicaaly created code is here
.
        'btnMax
        '
        btnMax.Location = New System.Drawing.Point(285, 6)
        btnMax.Name = "btnMax"
        btnMax.Size = New System.Drawing.Size(109, 23)
        btnMax.TabIndex = 15
        btnMax.Text = "Match to Account"
        btnMax.UseVisualStyleBackColor = True
        AddHandler btnMax.Click, AddressOf Form1.btnMax_Click
.
.
.
  End function
End Class

Private demoThread As Thread = Nothing
Delegate Sub SetTextCallback(ByVal [text] As String)
-
Private Sub dgInbox_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgInbox.CellDoubleClick

        Dim iTabCount, iIndex As Integer

        If TabControl1.TabPages.ContainsKey(dgInbox.CurrentRow.Cells(0).Value.ToString()) = False Then
            TabControl1.TabPages.Add(dgInbox.CurrentRow.Cells(0).Value.ToString(), Mid(dgInbox.CurrentRow.Cells(2).Value.ToString(), 1, 25))
            Me.tpRead.SuspendLayout() 
 
            CreateTab.ReadTab(TabControl1.TabPages.Item(TabControl1.TabPages.Count - 1), dgInbox.CurrentRow)

            Me.tpRead.ResumeLayout(False)             Me.tpRead.PerformLayout() 
            
            TabControl1.SelectTab(TabControl1.TabPages.Count - 1) 'set to currently displayed tab

        Else
            iIndex = TabControl1.TabPages.IndexOfKey(dgInbox.CurrentRow.Cells(0).Value.ToString())
            TabControl1.SelectTab(iIndex) ' tab already was created diplay it
        End If

    End Sub
-
Public Sub btnMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMax.Click
     
        'EmailAddr = TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtRdFrom").Text

        ' Create a thread and start it.
        Me.demoThread = New Thread(New ThreadStart(AddressOf Me.CallMax))
        Me.demoThread.Start()
End Sub
-
Public Sub CallMax()
      
        Dim AccountInfo As String
     '1. Issue #1b 
        EmailAddr = TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtRdFrom").Text
        MaxConn.LinkToAccount(EmailAddr, AccountInfo)
     
        Dim NewText As String = AccountInfo
       
        'If TabControl1.SelectedTab.Controls("txtaddr").InvokeRequired Then
    '1. Issue #1a    
        If TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").InvokeRequired Then
            'It's on a different thread, so use Invoke.
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {[NewText]})
        Else
            ' It's on the same thread, no need for Invoke.
            TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").Text = [NewText] 
        End If

        '=====
End Sub
-
    Private Sub SetText(ByVal [text] As String)
   '2. Issue number 2
        TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").Text = [text]
    End Sub

Public Sub CallMax()
      
        Dim AccountInfo As String
       
        'EmailAddr = TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtRdFrom").Text
        MaxConn.LinkToAccount(EmailAddr, AccountInfo)
     
        Dim NewText As String = AccountInfo
       
        'If TabControl1.SelectedTab.Controls("txtaddr").InvokeRequired Then
    '1. Issue #1    
        'If TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").InvokeRequired Then
            'It's on a different thread, so use Invoke.
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {[NewText]})
        'Else
            ' It's on the same thread, no need for Invoke.
            'TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").Text = [NewText] 
        End If

        '=====
End Sub
-
    Private Sub SetText(ByVal [text] As String)
   '2. Issue number 2
        'TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").Text = [text]
        TabControl1.TabPages(3).Controls("txtMaxAddr").Text = [text]

    End Sub

Public Structure SatChar
      Public SatNr As Integer
      Public SatAxim As String
      Public SatElev As String
      Public SNR As String
  End Structure
  Public Shared arrSatChars(0 To 35) As SatChar

Protected arrSatChars(0 To 35) As SatChar

   Public Property Satellites(ByVal SatNr As Integer, ByVal SatAxim As String, ByVal SatElev As String, ByVal SNR As String) As SatChar()
       Get
           Return arrSatChars
       End Get
       Set(ByVal value As SatChar())
           arrSatChars = value
           Me.Refresh()
       End Set
   End Property