SHARE
TWEET

The_GUI_In_VB

a guest Jul 19th, 2019 84 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.  
  4.  
  5.  
  6.  
  7.         Dim lable1 As New Label
  8.         Me.Controls.Add(lable1)
  9.         Me.BackColor = Color.Blue
  10.  
  11.         Me.Size = New Size(My.Computer.Screen.Bounds.Width, Me.Height)
  12.         lable1.Show()
  13.         lable1.ForeColor = Color.Yellow
  14.         lable1.Size = New Size(Me.Size.Width, Me.Size.Height)
  15.         lable1.Font = New Font("Comic Sans MS", 45)
  16.         lable1.Text = My.Computer.FileSystem.ReadAllText("output.txt")
  17.  
  18.  
  19.  
  20.     End Sub
  21. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top