Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click AddHandler Application.Idle, AddressOf Check 'Check開始してみるてすつ End Sub Private Sub Check(ByVal sender As System.Object, ByVal e As System.EventArgs) 'ずらずらと End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click RemoveHandler Application.Idle, AddressOf Check 'Check終了してみるてすつ End Sub
