
Sub Form_Load ()
'bigbedit.Move screen.width / 16, screen.height / 20, screen.width * 7 / 8, screen.height * 9 / 10
bigbedit.Move 0, 0, screen.width, screen.height
bigbedit.Scale (1, 1)-(5, 8)
bedit1.Move 1, 2, 4, 5.2
label1.Move 1, 1, 4, 2
COMMAND1.Move 1.4, 7.5
command2.Move 2.7, 7.5
COMMAND3.Move 4, 7.5
End Sub

Sub Command1_Click ()
savedata
assess2.hedit3.text = bedit1.text
Unload bigbedit
End Sub

Sub Command3_Click ()
Unload bigbedit
End Sub

Sub Command2_Click ()
bedit1.text = ""
End Sub

