Private Sub Chinko_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chinko.Click Call Syasei() End Sub