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