Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "BTN_REPOS" Then Button1.Text = "BTN_ENFONCE" Button1.BackgroundImage = My.Resources.monimage1 Else Button1.Text = "BTN_REPOS" Button1.BackgroundImage = My.Resources.monimage2 End If End Sub