How Check all check box of list view on click Select all Check box

Private Sub ChkAll_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChkAll.CheckedChanged
If ChkAll.CheckState = CheckState.Checked Then
For Each X As ListViewItem In ListView1.Items
X.Checked = True
Next
Else
For Each X As ListViewItem In ListView1.Items
X.Checked = False
Next
End If
End Sub