建议使用标签作为房间标志，其背景色可以独立设置。其上也可以写入文字作为注解。
依照房间数量设定标签数组的下标，注意空间数组不可以设成多维的，只能是一维。
假定你共有57间客房，其中标准间30间，单人间22间，豪华间5间。
例如
在设计界面绘制标签数组“标签（0）”和“标签（1）”
在声明部分
const 房间数=57
const 豪华间数=5
const 单人间数=22
const 标准间数=30
dim 房间属性（房间数） as string
dim 房间编号(房间数) as interge
dim 房间状态(房间数) as interge
在窗体装入事件中：
private sub from_load()
    宽度=***
    高度=***
    for i=0 to 57
        '这里加入语句从数据文件读入房间编号、房间属性和房间状态
        if i>1 then ***********'这里装入标签i,具体语句我忘记了。
        左边位置=****
        上边位置=****
        标签（i）.move 左边位置，上边位置，宽度，高度
        标签（i)=房间编号（i） & vbcrlf & 房间属性（i）
        标签（i).BackColor=QGcolor(房间状态(i))
    next i
end sub

在标签的鼠标点击事件中：
perivate sub 标签_click(index as interge)
    '在这里提供改变房间状态操作的对话框,这部分代码请你自己写。
    '将输入转换成状态代码，写入数据文件
    '依据状态改变对应标签的背景色
end sub

基本结构就是这样。我手头没有vb，不能提供更详细的代码。