Changer des images avec des boutons vb.net

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	PictureBox1.Tag = Not CBool(PictureBox1.Tag)
	PictureBox1.Image = If(CBool(PictureBox1.Tag), My.Resources.[Picture 1], My.Resources.[Picture 2])
End Sub
Helpful Hawk