Visual Basic

typedef struct _browseinfo { 
    HWND hwndOwner; 
    LPCITEMIDLIST pidlRoot; 
    LPSTR pszDisplayName; 
    LPCSTR lpszTitle; 
    UINT ulFlags; 
    BFFCALLBACK lpfn; 
    LPARAM lParam; 
    int iImage; 
} BROWSEINFO

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load <br />
  <br />
        Dim rptdata As New dbAccess <br />
        Dim rptval As New Change <br />
<br />
        Dim LogNumber1 As Integer <br />
        Dim Daterequested1 As String <br />
        Dim TargetDate1 As String <br />
        Dim Time1 As String <br />
        Dim RequestedBy1 As String <br />
        Dim ProjectName1 As String <br />
        Dim ChangeDescription1 As String <br />
        Dim Users1 As String <br />
        Dim Department1 As String <br />
<br />
        LogNumber1 = rptval.LogNumber <br />
        Daterequested1 = rptval.DateRequested <br />
        TargetDate1 = rptval.TargetDate <br />
        Time1 = rptval.Time <br />
        RequestedBy1 = rptval.RequestedBy <br />
        ProjectName1 = rptval.ProjectName <br />
        ChangeDescription1 = rptval.ChangeDescription <br />
        Users1 = rptval.Users <br />
        Department1 = rptval.Department <br />
<br />
        CrystalReportViewer1.ReportSource = New Chgmgt <br />
<br />
    End Sub