Macro Scroll Code

by rc (4 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sun 20^th May 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Macro Scroll Code

Rate Macro Scroll Code



 Dim l005E As Variant   ' editor is the formname
 l0036$ = editor.Chat.Text  'chat is the macro window
 ChatSend ("            ../) Incoming (\..")     'text1 is the macro name
 Pause (1.5)
 If Mid(l0036$, Len(l0036$), 1) <> Chr$(10) Then
 l0036$ = l0036$ + Chr$(13) + Chr$(10)
 End If
 Do While (InStr(l0036$, Chr$(13)) <> 0)
 ChatSend (" " & Mid(l0036$, 1, InStr(l0036$, Chr(13)) - 1))
 l0036$ = Mid(l0036$, InStr(l0036$, Chr(13) + Chr(10)) + 2)
 pause .5
 Loop
 ChatSend ("Macroshop name " & "- " & editor.Text1.Text)

Download this snippet Add to My Saved Code

Macro Scroll Code Comments

No comments have been posted about Macro Scroll Code. Why not be the first to post a comment about Macro Scroll Code.

Macro Scroll Code

Macro Scroll Code Comments

Post your comment

Difficulty