また長かったので追加です

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        'kchar = "" 

        k = e.KeyCode.ToString("G")

        'https://developer.mozilla.org/en-US/docs/Web/CSS/color_value 

        'http://rucio.o.oo7.jp/main/dotnet/shokyu/standard21.htm 

    End Sub

    Private Sub Form1_Keyup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp

        k = ""

    End Sub



    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click



        'http://www.nextftp.com/swlabo/m1_vbnet/hp_experiment/exp902.htm 

        Dim img As New Bitmap(Me.Width, Me.Height)

        Dim g As Graphics = Graphics.FromImage(img)



        Dim fnt As New Font("IPAmj明朝", 180)

        '文字列を位置(0,0)、青色で表示 

        g.DrawString(ChrW(&HD867) & ChrW(&HDE3D) & ChrW(&HDB40) & ChrW(&HDD03), fnt, Brushes.Blue, 0, 0)

        'リソースを解放する 

        fnt.Dispose()

        g.Dispose()

        '作成した画像を表示する 

        Dim form As Form

        form = Me

        form.BackgroundImage = img



        '  Dim g As Graphics = Me.CreateGraphics 

        'http://pckowaza.web.fc2.com/html/vbdotnet_graphics_drawstringtoform_basic.html 

        'http://bbs.wankuma.com/index.cgi?mode=al2&namber=67412&KLOG=114 

        'http://dobon.net/vb/dotnet/graphics/drawstring.html 

        'http://hanatyan.sakura.ne.jp/dotnet/zu05.htm 



    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim sjisEnc As Encoding = Encoding.GetEncoding("Shift_JIS")

        Dim writer As System.IO.StreamWriter

        'MsgBox(cnt) 

        writer = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Y2\Desktop\key2.txt", True, sjisEnc)

        Dim c As Long

        For c = 1 To cnt

            writer.WriteLine(m(c) & "," & xp(c) & "," & yp(c) & "," & key(c))

        Next

        writer.Close()

    End Sub

End Class

まだ、わからない事ばかりで、Paintの所も教えて頂けるとありがたいです。
MymbaseとMeもまだ呑み込めてません・・・
こんがらがってきました・・・

最初にボタン1を押して、キー、マウス操作をして、ボタン２を押します。