Latihan 53
Crystal Report Viewer = HONDA

Latihan 54
Public Class Latihan_054_46109023

    Private Sub p46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109023.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New Latihan_045_46109023
        Latihan_053_46109023.honda.ReportSource = laporan
        If Latihan_053_46109023.Visible = False Then
            Latihan_053_46109023.Show()
            Latihan_053_46109023.Activate()
        End If
    End Sub
End Class