The_GUI_In_VB

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load




        Dim lable1 As New Label
        Me.Controls.Add(lable1)
        Me.BackColor = Color.Blue

        Me.Size = New Size(My.Computer.Screen.Bounds.Width, Me.Height)
        lable1.Show()
        lable1.ForeColor = Color.Yellow
        lable1.Size = New Size(Me.Size.Width, Me.Size.Height)
        lable1.Font = New Font("Comic Sans MS", 45)
        lable1.Text = My.Computer.FileSystem.ReadAllText("output.txt")



    End Sub
End Class