CONTROLE POUR CHANGEMENT DE COULEUR (CHAT, IRC ...)

Private Sub lblCouleur_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'le backcolor de l'origin deviens celui de l'élément survolé
lblOrigine.BackColor = lblCouleur(Index).BackColor
End Sub

Private Sub lblOrigine_Click()
'si la frame est afficher elle deviens invisible et inversement
fraContain.Visible = Not fraContain.Visible
'on renvoie l'evenement Changement avec la couleur (merci Renfield j'y avais pas pensé)
RaiseEvent Changement(lblOrigine.BackColor)
End Sub