Declare Function XRAYfield Lib "xray.dll" (ByVal s As String, ByVal w As Integer, ByVal y As Integer, ByVal x As Integer, ByVal l As Integer) As Integer
Declare Function XRAYStuffKeyboard Lib "xray.dll" (ByVal k As Integer, ByVal w As Integer) As Integer
Declare Function XRAYGetCursor Lib "xray.dll" (ByVal w As Integer) As Integer
Sub Command1_Click ()
Dim s As String
form1.Cls
form1.CurrentX = 0
form1.CurrentY = 0
s = String$(2000, 0)
z = XRAYfield(s, 1, 0, 0, 2000)
For j = 1 To 25
form1.Print Mid$(s, ((j - 1) * 80) + 1, 80)
Next
End Sub
Sub Command2_Click ()
Dim s As String
If (Val(form1.Length) > 80 Or Val(form1.Length) < 1) Then
MsgBox "Length must be from 1 to 80"
form1.Length.SetFocus
Exit Sub
End If
If (Val(form1.LineNo) > 25 Or Val(form1.LineNo) < 1) Then
MsgBox "Line must be from 1 to 25"
form1.LineNo.SetFocus
Exit Sub
End If
If (Val(form1.ColumnNo) > 80 Or Val(form1.ColumnNo) < 1) Then