by Alexander Drankus (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 25th November 2000
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Takes text out of text box, and places it on the form.
API Declarations
'Needs:
'One Command Button, "Command1"
'One Text Box, "Text1"
'Clears form, so that new text can be displayed
Me.Cls
'Display's Text on form
Print Text1.Text
End Sub
Private Sub Form_Load()
'Set text box location
Text1.Top = 2850
Text1.Left = 0
'Set text box text
Text1.Text = ""
'Set text box size
Text1.Height = 285
Text1.Width = 2655
'Set command button's location
Command1.Top = 2880
Command1.Left = 2760
'Set command button's size
Command1.Height = 255
Command1.Width = 1215
'Set command button to default
Command1.Default = True
'Set command button's caption
Command1.Caption = "Display Text"
'Set form's size
Me.Height = 3600
Me.Width = 4800
'Set form's font
Me.Font.Bold = True
Me.FontSize = 24
'Set form's caption
Me.Caption = "Print-2-Form"
End Sub