Public Class selectsummary Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click databybrgy.Show() Me.Close() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click databypurok.Show() Me.Close() End Sub Private Sub selectsummary_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class