module1.bas

this is important file for vb

Attribute VB_Name = "Module1"
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Lightv(1 To 16) As Single, LBase As Integer, LEnd As Integer
Public Sx(1 To 16) As Integer, Sy(1 To 16) As Integer
Public Ex(1 To 16) As Integer, Ey(1 To 16) As Integer
Public i As Integer, Step As Integer, J As Integer
Public Buf As String, Temp As Integer, ip(1 To 16) As Integer
Public Col1(1 To 16) As Integer, Col2(1 To 16) As Integer
Public Col3(1 To 16) As Integer, PCnt As Integer
Public Forward(1 To 4) As Integer, Reverse(1 To 4) As Integer
Public PortC(1 To 2) As Integer, Times As Integer, Cnt As Integer
Public PortB As Integer, DCnt As Integer, Volt As Single

Public Function CharToVal(str As String)
If str <> "" Then
    CharToVal = CInt(Mid$(str, 2, 4))
End If
End Function