Sub CreateNewImageTab(ByVal iImage As Integer)

        Dim sImageId As String
        Dim sImageN As String
        Dim sNewtabName As String


        'New Image Id
        sImageId = CStr(iImage)
        sImageN = "Image" & sImageId

        ' New tab
        Dim newtabpage As New TabPage
        sNewtabName = "tab" & sImageN

        ' New Picture box
        Dim ImagePicturebox As New PictureBox
        Dim sNewImageboxName As String = "pb" & sImageN

       
        '
        ' New tab
        '
        frmMain.tcImages.Controls.Add(newtabpage)

       ' New Picture box
        newtabpage.Controls.Add(ImagePicturebox)

 End Sub

        
If Me.OpenFileDialogImages.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            LoadImage(Me.OpenFileDialogImages.FileName)
        End If

Sub LoadImage(ByVal sFilename As String)

       Dim iImage As Integer
        Dim FilenameboxName As String
        Dim PictureBoxName As String

        iImage = frmMain.tcImages.SelectedIndex + 1

     PictureBoxName = "PbImage" & Cstr(iImage)
???
???


End Sub

        For Each ctrl As Control In TabControl1.SelectedTab.Controls
            If TypeOf ctrl Is TextBox Then
                MsgBox(ctrl.Text)
            End If
        Next

    If Ctrl.Name = "TextBox3" Then
              'Code for TextBox3
               .......
    End If

    If Ctrl.Name = ("TextBox" & (TabControl1.SelectedIndex + 1) )Then
              'Code for TextBox 
              ' Make sure Tab1 Contains TextBox1, Tab2 contains TextBox2 etc
               .......
    End If

 Sub LoadImage(ByVal sFilename As String)
        Dim iImage As Integer
        Dim FilenameboxName As String
        Dim PictureBoxName As String

        '
        'Determine which tab is selected
        '
        iImage = frmMain.tcImages.SelectedIndex + 1
        FilenameboxName = "FilenameBoxImage" & CStr(iImage)
        PictureBoxName = "pbImage" & CStr(iImage)

'
' Iterate though controls on tab.
'
        For Each ctrl As Control In frmMain.tcImages.SelectedTab.Controls
            '
            ' Populate txt box
            '
            If TypeOf ctrl Is TextBox And ctrl.Name = FilenameboxName Then
                ctrl.Text = sFilename
            End If
            '
            ' populate picture box
            '
            If TypeOf ctrl Is PictureBox And ctrl.Name = PictureBoxName Then
             *   ctrl.Imagelocation = sFilename
              *  ctrl.SizeMode = PictureBoxSizeMode.StretchImage
            End If
        Next
    End Sub        '

If TypeOf ctrl Is PictureBox And ctrl.Name = PictureBoxName Then
   Dim MyPictureBox as PictureBox
   MyPictureBox = ctrl
 
   MyPictureBox.Imagelocation = sFilename
   MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
End If