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