tugas 54

tugas 54

Public Class Form54_36109015


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
        laporan = New CrystalReport45_36109015

        Form53_36109015.HONDA.ReportSource = laporan

        If Form53_36109015.Visible = False Then
            Form53_36109015.Show()
        Else
            Form53_36109015.Activate()
        End If

    End Sub
End Class