latihan 54

Public Class Latihan54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim danangAs New CrystalDecisions.CrystalReports.Engine.ReportDocument

        danang= New latihan45

        Latihan53.Yudha.ReportSource = vhal

        If Latihan53.Visible = False Then

            Latihan53.Show()

        Else

            Latihan53.Activate()

        End If

    End Sub

End Class