Who here at the Pav knows Visual Basic? Just curious.
I don't know how other VB's relate to one another as far as code wise...I'm using 6.0.
I don't know how other VB's relate to one another as far as code wise...I'm using 6.0.


a1$ = "19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19" a2$ = "19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19" a3$ = "19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19" etc...
For zz = 0 To 1040 Step 16 'Icons are 16 pixels wide For x = 1 To 1041 Step 3 'Beginning of next number is every 3 characters in string s$ = Mid$(a1, x, 2) DrawMap Next Next Public Sub DrawMap If s$ = "01" Then PaintPicture b1.Picture, x * 5 + 1, zz If s$ = "02" Then PaintPicture b2.Picture, x * 5 + 1, zz If s$ = "03" Then PaintPicture b3.Picture, x * 5 + 1, zz If s$ = "04" Then PaintPicture b4.Picture, x * 5 + 1, zz If s$ = "05" Then PaintPicture b5.Picture, x * 5 + 1, zz If s$ = "06" Then PaintPicture b6.Picture, x * 5 + 1, zz If s$ = "07" Then PaintPicture b7.Picture, x * 5 + 1, zz If s$ = "08" Then PaintPicture b8.Picture, x * 5 + 1, zz If s$ = "09" Then PaintPicture b9.Picture, x * 5 + 1, zz If s$ = "10" Then PaintPicture b10.Picture, x * 5 + 1, zz If s$ = "11" Then PaintPicture b11.Picture, x * 5 + 1, zz If s$ = "12" Then PaintPicture b12.Picture, x * 5 + 1, zz If s$ = "13" Then PaintPicture b13.Picture, x * 5 + 1, zz If s$ = "14" Then PaintPicture b14.Picture, x * 5 + 1, zz If s$ = "15" Then PaintPicture b15.Picture, x * 5 + 1, zz If s$ = "16" Then PaintPicture b16.Picture, x * 5 + 1, zz If s$ = "17" Then PaintPicture b17.Picture, x * 5 + 1, zz If s$ = "18" Then PaintPicture b18.Picture, x * 5 + 1, zz If s$ = "19" Then PaintPicture b19.Picture, x * 5 + 1, zz End Sub
For x=1 to 65 MatrixA(x,1) = "19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19" Next

Comment