Visual Basic

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