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