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