oppure usi una funzione tipo:
codice:Private Sub Form_Current() If bitrate Then Immagine4.Picture = "C:\immagine1.jpg" Else Immagine4.Picture = "C:\immagine2.jpg" End If End Sub![]()
oppure usi una funzione tipo:
codice:Private Sub Form_Current() If bitrate Then Immagine4.Picture = "C:\immagine1.jpg" Else Immagine4.Picture = "C:\immagine2.jpg" End If End Sub![]()