Прозрачная форма с текстом - Visual Basic .NET/.NET 4.x

Формулировка задачи:

Всем знатокам доброго времени суток!

Очень нужен код прозрачной формы на которой можно было бы писать текст разным цветом. Слепил код, но при вставке текста прозрачность теряется. Вот сам код

Public Class Form1
 
    Dim grap As Graphics 'Объявляем класс Graphics
    Dim x0, y0, x, y, xo, yo, i, w1, w2 As Decimal
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        '[
        Me.BackColor = Color.FromArgb(0, 255, 0)
        Me.TransparencyKey = Color.FromArgb(0, 255, 0) ' прозрачный цвет фона
        ']
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim GraphicsFun As System.Drawing.Graphics  'Задает объект класса Graphics
        GraphicsFun = Me.CreateGraphics  'Рисование на форме
        GraphicsFun.Clear(Color.Honeydew) 'Очистка формы и заполнение ее цветом Honeydew
        Dim PenColor As New System.Drawing.Pen(System.Drawing.Color.Red) 'Класс Pen(перо,цвет)
        x0 = 0.5 * Me.Width ' х-координата центра формы
        y0 = 0.5 * Me.Height ' у-координата центра формы
        w1 = 5  '   NumericUpDown1.Value 'Частота по вертикали
        w2 = 12  '  NumericUpDown2.Value 'Частота по горизонтали
        For Me.i = 0 To 100 Step 0.1 'I – переменный параметр имеющий физический смысл времени
            x = x0 + 300 * Math.Cos(w1 * i) 'х-координата кривой Лиссажу
            y = y0 + 300 * Math.Cos(w2 * i) 'у-координата кривой Лиссажу
            If i = 0 Then 'Это условие для задания начальной точки рисования
                xo = x
                yo = y
            End If
            GraphicsFun.DrawLine(PenColor, xo, yo, x, y) 'Рисование отрезка кривой Лиссажу
            xo = x 'Сохранение конца текущего отрезка для прорисовки следующего.
            yo = y
        Next
    End Sub
    '[
    Private MouseLelfDown As Boolean = False
    Private MouseCoords As Point
 
    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        If e.Button = MouseButtons.Left Then
            MouseLelfDown = True
            MouseCoords = e.Location
        Else
            MouseLelfDown = False
        End If
        '[
        Dim prnt As Graphics = Me.CreateGraphics
        Dim x As String = TextBox1.Text
        Dim FN As New Font("ARIAL", 12, FontStyle.Bold)
        prnt.DrawString(x, FN, Brushes.Black, e.Location.X, e.Location.Y)
    End Sub
    ']
 
    Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        MouseLelfDown = False
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If MouseLelfDown Then
            Dim g As Graphics = Graphics.FromHwnd(Me.Handle) 'или =CreateGraphics()
            g.DrawLine(New Pen(Color.Black, 3), MouseCoords, e.Location)
            MouseCoords = e.Location
        End If
    End Sub
    ']
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        grap = Me.CreateGraphics 'Будем рисовать по форме
        grap.DrawLine(Pens.Black, 80, 20, 200, 100) 'Рисуем линию. Pens.Black цвет. 80(x1),20(y1),200(x2),100(y2) координаты.
    End Sub
End Class

Помогите, знатоки!!! Чую, что тут что-то лишнее, а чего-то не хватает, но понять не в состоянии. Спасибо за понимание!

Решение задачи: «Прозрачная форма с текстом»

textual
                            Листинг программы 
                        

                            Public Class Form3
    Dim isLoad As Boolean
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.FromArgb(0, 255, 0)
        Me.TransparencyKey = Me.BackColor
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        isLoad = True
        Me.Invalidate()
    End Sub
    Private Sub Form3_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        If Not isLoad Then Exit Sub
        Dim g As Graphics = e.Graphics
        Dim FN As New Font("ARIAL", 24, FontStyle.Bold)
        g.DrawString("Test Test", FN, Brushes.Black, 20, 120)
        g.DrawLine(Pens.Black, 80, 20, 200, 100)
    End Sub
End Class
                        