Private Sub code_Click()
Dim I&, FlowPoss&
Dim wIsolator() As String
Dim CLine&
Static ProgMode As Byte
Dim block As cBlock
Dim flow As Block_Collection
Set flow = New Block_Collection
For I = 1 To 30
txt.TextboxLine(I) = ""
Next
For I = 1 To flow.Count - 1
txt.TextboxLine(I) = " "
FlowPoss = I
If flow(I).sCaption = "Start" Then
FlowPoss = I
Exit For
End If
Next
txt.TextboxLine(0) = "Sub Main()" & vbCrLf
CLine = 1
On Error Resume Next
Do
CLine = CLine + 1
If getNextBlock(block, "Stop") = "Stop" Then Exit Do
Select Case getNextBlock(block, " ")
Case "Output": txt.TextboxLine(CLine) = " MsgBox "
End Select
Loop
txt.TextboxLine(CLine) = "End Sub"
end sub
..
thats the code im working on..
i cant get on the next block..
and even start shape and shape never put on the working area
still its going to get the main sub and the end sub and put it
in the code display...