VBDN 10B / Buttonerstellung und Backcolor änder in vb

Imports System.Windows.Forms
Imports System.Drawing


Class KurzForm
    Inherits Form




    Shared Sub Main()
        Console.WriteLine("Programmbeginn")
        Dim f1 As New KurzForm
        f1.Name = "F1"
        f1.Text = "F1"


        Application.Run(f1)




        Console.WriteLine("Programmende")
        Console.ReadLine()
    End Sub


    Sub New()
        Console.WriteLine(Name & " New")


        Dim b As New Button
        b.Name = "btnDrückmich"
        b.Text = "Drückmich!"
        b.AutoSize = True


        Controls.Add(b)
        AddHandler b.Click, AddressOf meinbutton_Click


    End Sub


    Private Sub KurzForm_Load(ByVal sender As System.Object, _
                                   ByVal e As System.EventArgs) _
                                   Handles MyBase.Load
        Console.WriteLine(Name & " Load")
        For Each c In Controls
            If CType(c, Button).Name = "btnDrückmich" Then
                CType(c, Button).Text = "Nicht Drücken!!!"


            End If
            Console.WriteLine(c.name & ", " _
                              & Controls.IndexOf(c).ToString & ", " _
                              & c.GetType.ToString)
        Next
    End Sub


    Sub meinbutton_Click(ByVal sender As Object, ByVal e As System.EventArgs)


        Dim dlgname As New Dialog
        If dlgname.ShowDialog = Windows.Forms.DialogResult.OK Then
            MessageBox.Show("Ihre Eingabe war: " & dlgname.txt1.Text, _
                             "Ergebnis", _
                             MessageBoxButtons.OK, _
                             MessageBoxIcon.Information)
        End If
    End Sub
End Class


Class Dialog
    Inherits Form


    Friend txt1 As TextBox
    Private lbl1 As Label
    Private btn0k As Button
    Private btnabbrechen As Button
    Private btnrot As Button
    Private btngrün As Button




    Sub New()


        lbl1 = New Label
        Controls.Add(lbl1)
        With lbl1
            .Text = "Ihre Antwort"
            .Top = 30
            .Left = (Width - .Width) / 2
        End With




        txt1 = New TextBox
        Controls.Add(txt1)
        With txt1
            .Text = "Ihre Test"
            .Top = 50
            .Left = (Width - .Width) / 2
        End With


        btn0k = New Button
        Controls.Add(btn0k)
        With btn0k
            .Text = "&OK"
            .Top = 80
            .Left = (Width - .Width) / 2
            .DialogResult = Windows.Forms.DialogResult.OK
        End With


        btnabbrechen = New Button
        Controls.Add(btnabbrechen)
        With btnabbrechen
            .Text = "&Abbrechen"
            .Top = 100
            .Left = (Width - .Width) / 2
            .DialogResult = Windows.Forms.DialogResult.Cancel
        End With


        btnrot = New Button
        Controls.Add(btnrot)





    End Sub