这是一个MSFlexGrid + TextBox的例子,你可以改成ComboBox,然后再加一些功能和判断。Private Sub Form_Load()
MSFlexGrid1.Rows = 20
MSFlexGrid1.Cols = 4For i = 0 To 19
    For j = 0 To 3
        MSFlexGrid1.TextMatrix(i, j) = "Grid(" & i & "," & j & ")"
    Next
Next
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Text1.Left = MSFlexGrid1.ColPos(MSFlexGrid1.MouseCol) + MSFlexGrid1.Left
Text1.Top = MSFlexGrid1.RowPos(MSFlexGrid1.MouseRow) + MSFlexGrid1.Top
Text1.Height = MSFlexGrid1.CellHeight
Text1.Width = MSFlexGrid1.CellWidth
Text1.Visible = True
End Sub