@xam85reBanned
A parte che il tipo Variant in VB.NET non esiste (semmai esiste Object), credo che siano tutte di tipo Integer (ma potrei anche sbagliare).

@sergiobarbi
Direi che la soluzione più semplice e più veloce da realizzare è quella di ridisegnare tutto con i colori dello sfondo: basta che alla routine DrawLinesPoint() aggiungi un parametro di tipo Color e poi fai così:
codice:
Dim bluePen As New Pen(NomeParametroDiTipoColor, 2)