수다닷컴

위 그림처럼 프레임 내부의 좌표에 상자를 그리면 저렇게 가려지네요,, 어떻게해야 할까요?모듈의 코드 중 일부는 아래와 같습니다.Public Sub Initialization()
BOX_WIDTH = 130
BOX_HEIGHT = 130
ZERO_POINT.X = 200
ZERO_POINT.Y = 400
Form1.Show

For i = 0 To 50
For j = 0 To 50
Grid(i, j).X = i * (BOX_WIDTH + 20) + ZERO_POINT.X
Grid(i, j).Y = j * (BOX_HEIGHT + 20) + ZERO_POINT.Y
Next j
Next i
Debug.Print Grid(30, 30).X
Form1.PaintPicture Form1.red, 500, 500, BOX_WIDTH, BOX_HEIGHT

i = 0
j = 0
For j = 0 To 50
Form1.PaintPicture Form1.red, Grid(i, j).X, Grid(i, j).Y, BOX_WIDTH, BOX_HEIGHT
Next j

End Sub

신청하기