Syntax:
VA1.Is_this_Word_of_no_(no.)
no. = 1 to 7
Details :
This is a array which stores sequentially all the currently found final Platinum words. You get the characters by sending appropriate Send_of_no ( Index value).
As a example.
For n = 1 To VA1.Current_Platinum_Words_Available
VA1.Send_of_no = n
CollectChara(n) = VA1.Is_this_Word_of_no_(no.)
Next n
Example :
Private Sub Timer1()
VA1.Send_of_no = 1
Label1.Caption = VA1.Is_this_Chara_of_no_1
End Sub