df1xhaircolor

Private Sub Option1_Click() '//green
If Text3.Enabled = True Then
Call WriteAByte(&H402387, "92")
Call WriteAByte(&H4023AF, "92")
Call WriteAByte(&H4023D7, "92")
Call WriteAByte(&H4023FE, "92")
Else
Call WriteAByte(&H402387, "92")
Call WriteAByte(&H4023AF, "92")
Call WriteAByte(&H4023D7, "92")
Call WriteAByte(&H4023FE, "92")
End If
End Sub

Private Sub Option10_Click() '//purple
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 45)
Call WriteAByte(&H4023AF, 45)
Call WriteAByte(&H4023D7, 45)
Call WriteAByte(&H4023FE, 45)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option2_Click() '//red
    If Text3.Enabled = True Then
    Call WriteAByte(&H402387, 79)
    Call WriteAByte(&H4023AF, 79)
    Call WriteAByte(&H4023D7, 79)
    Call WriteAByte(&H4023FE, 79)
Else
    Call WriteAByte(&H402387, 92)
    Call WriteAByte(&H4023AF, 92)
    Call WriteAByte(&H4023D7, 92)
    Call WriteAByte(&H4023FE, 92)
   End If
End Sub

Private Sub Option3_Click() '//Pink
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 43)
Call WriteAByte(&H4023AF, 43)
Call WriteAByte(&H4023D7, 43)
Call WriteAByte(&H4023FE, 43)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option4_Click() '//yellow
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 80)
Call WriteAByte(&H4023AF, 80)
Call WriteAByte(&H4023D7, 80)
Call WriteAByte(&H4023FE, 80)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option5_Click() '//blue
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 73)
Call WriteAByte(&H4023AF, 73)
Call WriteAByte(&H4023D7, 73)
Call WriteAByte(&H4023FE, 73)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option6_Click() '//orange
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 62)
Call WriteAByte(&H4023AF, 62)
Call WriteAByte(&H4023D7, 62)
Call WriteAByte(&H4023FE, 62)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option7_Click() '//cyan
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 66)
Call WriteAByte(&H4023AF, 66)
Call WriteAByte(&H4023D7, 66)
Call WriteAByte(&H4023FE, 66)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option8_Click() '//white
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 65)
Call WriteAByte(&H4023AF, 65)
Call WriteAByte(&H4023D7, 65)
Call WriteAByte(&H4023FE, 65)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub

Private Sub Option9_Click() '//black
If Text3.Enabled = True Then
Call WriteAByte(&H402387, 68)
Call WriteAByte(&H4023AF, 68)
Call WriteAByte(&H4023D7, 68)
Call WriteAByte(&H4023FE, 68)
Else
Call WriteAByte(&H402387, 92)
Call WriteAByte(&H4023AF, 92)
Call WriteAByte(&H4023D7, 92)
Call WriteAByte(&H4023FE, 92)
End If
End Sub