Type | Description | |||
Handle as Variant |
The Handle parameter can be:
|
The following sample adds two icons to the control's images list and change the button's icon when user clicks the button:
Private Sub Button1_Click() With Button1 .BeginUpdate .Image = (.Image) Mod 2 + 1 .EndUpdate End With End Sub Private Sub Form_Load() With Button1 .BeginUpdate .Mode = exPushLike .Images "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwV/QGFiT/weJrcPw4AYGPxuKyVKwqAxuMx7AxuZyOTz09xmYyGhh2O0elzmMz+rl2Vy+o0+I1Ol0Wa2ud1mf0my2Ob3sYy3A3220u5yWu1235XFAGW2eI4Wq42e6ENjPIw3L6uW3fX3HT43V7eG5OwzXC6PM8HrlnYy3u4ff9nz1vk+3vw30/U6+H7/z/wBAMBJ4iofJVAyOo+kKRgAkiTwcm7pQGlL1IwebqoycEMIwcAfpSYAHw+AaUkBCDrxMjMRpTFSNEAA6UnBF6TnxEKTn9GqNH+T8KQ2ACAg==" .Images "gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wE8QCAjGDwOHsDAxUSf+MAGGxGRp+Qh+OyuKYAAzGPwmSz1DzeXxeb0mLweEyuQz+rmWUh2W1+lzOb0+wxupzus3UZ0Ox0e/2emw2V4mv0XBzO7xGu2/G33IzXC1HOxuy6PQ5WH3vV4HX7214vN8XezfZ1nh8nd8HU73m90w9Hr8e4wnW8vv/Er+PD9no+78wAjL6Nslj/wDA6UvQjTjwRBqWvQysHQlCbWIqHyVQujqPpCkYAJIk8PpvCMKJUebGpOcETo0cAfpSYAHxcAaUtyjUaJfEKMkBHCMGBHYAHglR/JVFUFmDBJxpSgI" .Image = 1 .EndUpdate End With End Sub