Private sub Paint(...) Handles MyBase.Paint
    if not me.visible then return
 
    if me.ForeColor = System.Drawing.SystemColor.InaktiveForeColor then
        me.ForeColor = system.Drawing.Color.Blue
    End if 
End Sub