Imports System
Imports System.windows.forms
 
Public Class MyForm
    Inherits System.Windows.Forms.Form
 
    Dim WithEvents button1 As New Button
    Dim WithEvents button2 As New Button
    Dim WithEvents text1 As New TextBox
 
    Public Sub New()
 
        button1.Text = "OK"
        button2.Text = "Cancel"
        button1.Top = 100
        text1.Text = "wert"
        text1.Top = 50
        Me.Text = "Titel des Fensters"
        Me.HelpButton = True
        Me.FormBorderStyle = FormBorderStyle.FixedDialog
        Me.MaximizeBox = True
        Me.MinimizeBox = True
        Me.AcceptButton = button1
        Me.CancelButton = button2
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.Controls.Add(button1)
        Me.Controls.Add(button2)
        Me.Controls.Add(text1)
        'Me.controls.add(Text)
    End Sub
 
    Private Sub Button1_Click(ByVal Sender As Object, ByVal E As EventArgs) _
      Handles button1.Click
        MessageBox.Show("servus")
    End Sub
End Class

Imports System
Imports System.windows.forms
 
Class test
 
    Public Shared Sub main()
        Dim form1 As New MyForm
 
        form1.ShowDialog()
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist