Visual Basic

Private Sub uxGpDirectoryTree_AfterSelect( _
     ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) _
     Handles uxGpDirectoryTree.AfterSelect

     Me.StartDir += uxGpDirectoryTree.SelectedNode.Text + "\"
     call fillDirectoryTree()
 End Sub

 Private Sub fillDirectoryTree()
     Dim arrSubfolders() As DirectoryInfo
     arrSubfolders = New DirectoryInfo(Me.StartDir).GetDirectories

     uxGpDirectoryTree.Nodes.Clear()
     For Each subfolder As DirectoryInfo In arrSubfolders
         uxGpDirectoryTree.Nodes.Add(subfolder.Name)
     Next
 End Sub

<br />
<br />
   <br />
<br />
Public Delegate Sub MakeGrids(ByVal ResultsTable As DataTable)<br />
<br />
Private Sub ExecuteThreadedQuery()<br />
<br />
'do various things and fill a dataset with the query results<br />
<br />
        'loop through each table in dataset<br />
        For Each table as datatable in dataset.tables<br />
<br />
<br />
                Dim NewGrid As New MakeGrids(AddressOf AddResultsGrid)<br />
<br />
                'call the AddResultsGrid sub using BeginInvoke<br />
                NewGrid.BeginInvoke(ResultsTable, Nothing, Nothing)<br />
<br />
<br />
        Next  <br />
<br />
<br />
End Sub<br />
<br />
<br />
Private Sub AddResultsGrid(ByVal ResultsTable As DataTable)<br />
<br />
        Dim ResultsGrid as DataGrid<br />
<br />
        'assign relevant properties to the grid and bind it to the ResultsTable which has been fed through<br />
<br />
<br />
        'Add it to the panel<br />
        Panel1.Controls.Add(ResultsGrid)  '***AT THIS POINT THE CODE STOPS EXECUTING AND NOTHING IS ADDED TO THE PANEL<br />
<br />
<br />
   <br />
End Sub<br />
<br />
<br />

Dim CRApp As New CRAXDRT.Application<br />
Dim CRRpt As New CRAXDRT.Report<br />
Dim CRTbl As CRAXDRT.DatabaseTable<br />
 <br />
    Set CRRpt = CRApp.OpenReport(App.Path & "\Reports\Products.rpt)<br />
    CRViewer.ReportSource = CRRpt<br />
    CRViewer.ViewReport

Dim o As Control = LogPhotosToDbBtn
Dim x As Integer = LogPhotosToDbBtn.Location.X
Dim y As Integer = LogPhotosToDbBtn.Location.Y
While (o.Parent.Name <> "")
    o = o.Parent
    x += o.Location.X
    y += o.Location.Y
End While

Dim p1 As Point
p1.X = x
p1.Y = y

LogFotosForm.Show()
LogFotosForm.Location = p1