Public Sub CreateNewMap
Dim height As Int
Dim width As Int
Dim sqrCount As Int
height = 7
width = 7
sqrCount = 0
For column = 1 To 7
For row = 1 To 7
Msquare(sqrCount).Initialize(Me,"")
pnlMap.AddNode(Msquare(sqrCount).GetBase,100* row,100 * column,1,1)
Msquare(sqrCount).SetPOSx(column)
Msquare(sqrCount).SetPOSy(row)
Msquare(sqrCount).HighLightSqr(False)
AddNewTile(sqrCount, column, row)
sqrCount = sqrCount + 1
Next
Next
End Sub
Private Sub DrawLOS(p1 As point , p2 As point)
cv.Initialize(pnlMap)
cv.DrawLine(0, 0, 5000, 5000, xui.Color_Green, 2dip)
End Sub