Private Sub Form_Activate() For i = 0 To 3 Q(i).BackColor = vbYellow Q(i).Value = False Next End Sub Private Sub Q_Click(Index As Integer) For i = 0 To 3 If Q(i).Value = True Then Q(i).BackColor = vbRed Else Q(i).BackColor = vbYellow End If Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() Q(2).Visible = False Q(3).Caption = "bonjour" Q(3).Move 0, 0 Q(3).BackColor = RGB(0, 125, 125) Q(3).ForeColor = vbWhite End Sub