Public Class Test Inherits Window

	Public Sub Test()

		Dim string As String = ""
		Dim integer As Integer = 0
		Dim short As Short = 0
		Dim long As Long = 0
		Dim float As Single = 0.0
		Dim double As Double = 0.0

		MessageBox.Show("MesssageBox auf Deutsch xD", "MessageBox")

		Me.Show()
		Me.Close()

		Dim textbox As TextBox = new TextBox()
		Dim label As Label = new Label()

		Me.Controls.Add(textbox)
		Me.Controls.Add(label)

		Me.Controls.Remove(textbox)

		textbox.Text = "Hi xD"
		textbox.Location = new Location(10, 10)
		textbox.Clear()

	End Sub

	Public Function EineFunktion() As String

		Dim string As String = "Das wird zurückgegeben"

		Return string;

	End Function

End Class