vb6hevb点虐 vb6和vbnet学哪个

金山毒霸

看一下这个吧

创新互联建站专业提供西部信息中心服务，为用户提供五星数据中心、电信、双线接入解决方案，用户可自行在线购买西部信息中心服务，并享受7*24小时金牌售后服务。

或者

瑞星2006序列号：

NNRJ4Q-UTVL16-FF60S5-UJ5200

(ID任意)

序列号：RIUEKR-EKNBL6-JLE950-9QD200

用户ID：4AJRY64DNA4G (任意填写)

可升级2006瑞星杀毒软件信袜和防火墙的安装序列号及ID

安装序列号：52LDJG-Q9LBCT-6ACQS2-R30800

ID:RCHVB6NM

RCERCJ7U

RCVXD94A

RCEXB8IS

M1XERFIS

UAMVB9XQ

UAGZBGMG

RCQVDI4U

UARVCHXG

RCQVDA49

UA27G8SD

RBHVAZHP

M1E3AQ1I

RCQXB7C5

M1B3FP4T

UAJSCGGN

UAGVCA3H

RCESBD7Q

RCCWD7QV

RCVXE19F

UAGZC86B

RCHVF64Q

UAGVAS1G

EBEH3YT5

EBEH44XP

UAGUAHJV

RCQVD7II

UA27HICS

RCHVEEGH

UAGVD1UE

UAERC3IG

RCHVCZAD

UAGVBKR7

UAJSANET

EBEH3KFR

RCQXAHJX

M1B3CWCU

RCQSADRR

UAJSCY85

RCCWCG7H

UARVB3AL

RCQSADRR

RCVXE8F1

UAWUQESQ

UA27FEAN

然后按要求安装升级..搞定.. 看看我的效果图升到最新版了..哈哈,真爽...

序列号与id不匹配的拆稿解决方法：

1、将c:\windows(98/me/xp)，c:\winnt(2000)目录滑御激中rav.ini打开，把[ravsetting]中的items修改为

items=sv2$6m01-*s7m-vu%`6m2.trpp，就不会提示序列号与id不配了

2、重装RAV2005

产品序列号：7JE9R9-QTSIEI-EFF4SB-EJ5200

产品序列号：52LDJG-Q9LBCT-6ACQX2-R38200

产品序列号：52LDJG-Q9LBCT-6ACQ52-R35400

产品序列号：52LDJG-Q9LBCT-6ACQS2-R35200

用户安装ID：4AJRY64DNA4G

产品序列号：77PUHE-QPV6KB-ME6JS3-KM5200

用户安装ID：W28CYL3L84PR

产品序列号：V6LGRK-FGLDVL-3T49RL-V15200

用户安装ID：W15CF5MCFWRQ

产品序列号：TV3MI2-N6GTCG-LQL8S5-7L5200

用户安装ID：W1QC96MXA8L4

产品序列号：V5V0WL-NGFHWU-DT2VRM-N45200

用户安装ID：W15CV5M3GF6Q

瑞星序列号大放送: 瑞星杀毒软件2004序列号：

52LDJG-Q9LBCT-7ACQS2-R35200 用户安装ID：4AJRY64DNA4G

4A7I9W-92HTIF-R8UWSM-FK5200

用户安装ID：W2PC4VRZFZ4D

W13KIE-NP8U4J-LV82S3-VH5200

用户安装ID：W15CF5MCFWRQ TV3MI2-N6GTCG-LQL8S5-7L5200(OEM版)

用户安装ID：W1QC96MXA8L4

77PUHE-QPV6KB-ME6JS3-KM5200(下载版)

用户安装ID：W28CYL3L84PR 瑞星杀毒软件2004序列号： U0I26A-W84GHI-NR8KSB-SU5200

网站授权ID：W15CV5M3GF6Q AQPDTU-INE2N7-CLQWS9-N15200

用户安装ID：W242YECZ28JF FS971I-3WR80C-GWTUSN-G55200

用户安装ID：W2Q26CGX7UYP 92Q40U-R9M8P7-EIFUSA-PI5200

用户安装ID：W232L1MQXHQA 5EPEUT-1EMRNF-0AKSS2-WR5200

用户安装ID：W2X2E2GPQ9Q1

2003正式版序列号：

36RDFV-PQMJ3W-M65EGV-RN4200

HWGQTQ-KATWF6-D3NQDL-R04200

HNTQPT-4AWW67-13718L-HC4200

JUQVN2-CWEFLP-J7JAC3-Q23200

AKSDFF-76DSSF-672742-ME1300

111111-222222-333333-440200

V0S09D-Q2TUd3-IA2Td1-620000

PLJKAB-FLI8d3-EJBBd1-020000

69282O-MTVF38-285KA5-440200

安装序列号：

VV4NG7-6O31d3-LGLFd1-A20000

DW1264-YGAGd3-P81Vd1-420000

8M4J93-S38Xd3-H9K0d1-220000

OJ7LS2-Y1TTd3-RQCCd1-X20000

KHLBWV-H0VCd3-QGAYd1-K20000

0HM282-5BC8d3-U5MMd1-I20000

60FRJI-HPAXd3-2GHKd1-920000

YV6JII-0P53d3-RSXNd1-020000

3PVQNT-5JP184-9R8IJB-1F9108

如何获得瑞星 2004 正版序列号：

大家都知道用瑞星试用版序列号 52LDJG-Q9LBCT-6ACQS2-R35200 安装后会出现ID与序列号不匹配的问题

，其实

可以把安装序号改为 52LDJG-Q9LBCT-6ACQS2-R36200 或 52LDJG-Q9LBCT-6ACQ52-R35200 即可。

请看第四段 -R36200，5可改成6、7、8、9；

还有第三段 -6ACQS2 的S改成其它数字或字母，一样可以通过安装，安装后只要用可以升级的ID升就是

，不会

有不匹配的现象。呵呵，大家不用再去修改rav.ini或者用那些免验证补丁了！

以上面序号在瑞星2004版、2.1防火墙试验通过。

瑞星升级ID大放送: ◆如果想自己用智能升级功能，下面提供千个ID供选，但请注意： 1、不要上瑞星

网站进

行测试或下载，用软件的智能升级测试； 2、不能升级的并不代表已经作废，下个版本升级时可能就可

以用了

； 3、若提示使用次数太多不能用，在瑞星版本进行一次升级后，就又可用了； 4、瑞星同一ID的升级

限制为2

次！请不要随便公布，以防被封锁.

T1IM4V9M、M183C4TP M1MHZVC9 UAA6HBUC UAA6HD7N UAA6HEHG UAA6HF6Z UAA6HI3B UAA6HWZM UAA6HY71

UAB6G5HL 更多id 瑞星2004升级新招！

瑞星2004版用户升级方式:

1.手中拥有本站瑞星正式版升级ID(2004版ID均可)用户 请用瑞星2004版安装程序直接安装瑞星杀毒软

件和瑞

星个人防火墙 产品序列号：52LDJG-Q9LBCT-6ACQS2-R35400 用户ID：4AJRY64DNA4G 完成安装后打开

系统目

录并修改系统目录中Rav.ini文件 Win98/98se/Me/XP C:\Windows\Rav.ini D:\Windows\Rav.ini

WinNT/2000 C:\Winnt\Rav.ini D:\Winnt\Rav.ini 查找以下字段： [RavSetting]

Items=UR,$*'M1Y,\"#4MV!#13RM2SURPP

修改为： [RavSetting] Items=SV2$6M01-*S7M-VU%`6M2.TRPP(注：使用复制、粘贴，请勿手工

输入！)

保存退出，请在瑞星主程序选项中设置“网络设置”、“用户ID设置”点升级即可！

vb和python混合编程

vb跟python之间没有一个可交互的桥梁，所以是不弊伏能实现混合编程的。不过VS2019已经完美支持python，也许租迹携Python跟VB点虐 混合编程州消会成为可能。

VB MSFlexGrid1.TextMatrix(i, 3)

'MSFlexGrid赋茄吵值的方法 MSFlexGrid1.TextMatrix(0, 1) = "老师"

MSFlexGrid1.TextMatrix(1, 2) = "学生"

MSFlexGrid1.TextMatrix(2, 3) = "校长"

MSFlexGrid1.TextMatrix(3, 4) = "班主任"

MSFlexGrid1.TextMatrix(4, 5) = "教务主任"

MSFlexGrid1.AddItem 2

MSFlexGrid1.AddItem 4

MSFlexGrid1.AddItem 6

MSFlexGrid1.AddItem 8

``MSFLEXGRID 中如何取的某个单元格的数据

Private Sub MSFlexGrid1_Click()

MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col), vbOKOnly, "提示消息"

End Sub

MSFlexGrid1.Row,表格中的当前行

MSFlexGrid1.Col,表格中的当前列

'初始化MSFlexGrid

Dim i As Integer

MSFlexGrid1.Rows = 0

For i = 0 To 10

MSFlexGrid1.AddItem "AA" + Str(i)

'For i = 0 To 10

MSFlexGrid1.Col = 1

MSFlexGrid1.Row = i

MSFlexGrid1.Text = CStr(i)

MSFlexGrid1.Col = 2

MSFlexGrid1.Row = i

MSFlexGrid1.Text = CStr(i) CStr(i)

MSFlexGrid1.Col = 3

MSFlexGrid1.Row = i

MSFlexGrid1.Text = CStr(i) CStr(i) CStr(i)

Next i'实现MSFlexGrid控件，单行背景为浅灰，双行为兰色

Dim j As Integer

With MSFlexGrid1

.AllowBigSelection = True ' 设置网格样式

.FillStyle = flexFillRepeat

For j = 0 To .Rows - 1

.Row = j: .Col = .FixedCols

.ColSel = .Cols() - .FixedCols - 1

If j Mod 2 = 0 Then

.CellBackColor = HC0C0C0 ' 浅灰

Else

.CellBackColor = vbBlue ' 兰色

End If

Next j

End With '在MsFlexGrid控件单元格中插入背景图形

Set MSFlexGrid1.CellPicture = LoadPicture("f:\temp\snow.bmp")'MSFlexGrid控件如何移到最后一行

MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1

'隐藏第一行

'Private Sub Command1_Click1()

'MSFlexGrid1.RowHeight(1) = 0

'End Sub

'隐藏第一列

'Private Sub Command_Click2()

'MSFlexGrid1.ColWidth(1) = 0

'End Sub

在MSFlexGrid上点击右键，选择属性，选择"选择模式",自己任选

点击得到行代码

msgrid1.Col就是你选择的列号

msgrid1.Row 就颤扒侍是你选择的行号

msgrid1.text就是你选择单元格的此州内容。

将文本赋值给MsFlexGrid的单元格

MsFlexGrid.TextMatrix(3,1)=”Hello”

在MsFlexGrid控件单元格中插入背景图形

Set MsFlexGrid.CellPicture=LoadPicture(“C:\temp\1.bmp”)

选中某个单元

MsFlexGrid.Row=1

MsFlexGrid.Col=1

用粗体格式化当前选中单元

MsFlexGrid.CellFontBold=True

添加新的一行

使用AddItem方法,用Tab字符分开不同单元格的内容

dim row as string

row=”AAA”vbtab”bbb”

MsFlexFrid1.addItem row

怎样来实现MSFlexGrid控件单数行背景为白色，双数的行背景为蓝色?

Dim i As Integer

With MSFlexGrid1

.AllowBigSelection = True ’ 设置网格样式

.FillStyle = flexFillRepeat

For i = 0 To .Rows - 1

.Row = i: .Col = .FixedCols

.ColSel = .Cols() - .FixedCols - 1

If i Mod 2 = 0 Then

.CellBackColor = HC0C0C0 ’ 浅灰

Else

.CellBackColor = vbBlue ’ 兰色

End If

Next i

End With

MSFlexGrid控件如何移到最后一行

MSFlexGrid1.TopRow = MSFlexGrid1.Rows – 1

如何判断msflexgrid有无滚动条

Declare Function GetScrollRange Lib "user32" (ByVal hWnd As Long, ByVal nBar As Long, lpMinPos As Long, lpMaxPos As Long) As Long

Public Const SB_HORZ = H0

Public Const SB_VERT = H1

Public Function VsScroll(MshGrid As MSHFlexGrid) As Boolean ’判断水平滚动条的可见性

Dim i As Long

VsScroll = False

i = GetScrollRange(MshGrid.hWnd, SB_HORZ, lpMinPos, lpMaxPos)

If lpMaxPos lpMinPos Then VsScroll = True

End Function

Public Function HeScroll(MshGrid As MSHFlexGrid) As Boolean ’判断垂直滚动条的可见性

Dim i As Long

HeScroll = False

i = GetScrollRange(MshGrid.hWnd, SB_VERT, lpMinPos, lpMaxPos)

If lpMaxPos lpMinPos Then HeScroll = True

End Function

程序运行时，想动态增加MSFlexgrid的列数

在第2列后插入一列：

Private Sub Form_Load()

Me.MSHFlexGrid1.Cols = 5

MSHFlexGrid1.Rows = 2

For i = 0 To Me.MSHFlexGrid1.Cols - 1

Me.MSHFlexGrid1.TextMatrix(0, i) = i

Me.MSHFlexGrid1.TextMatrix(1, i) = i

Next

End Sub

Private Sub Command1_Click()

Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1

Me.MSHFlexGrid1.ColPosition(5) = 3

End Sub

请教MSFlexGrid中的对齐功能的使用

设置MSFlexGrid1.ColAlignment(index)=n

得到MSFlexGrid控件中当前选中的一行

msflexgrid1.rowsel就是当前选中行

如何通过代码调节列宽度

msflexgrid1.colwidth(i)=4000

--------------------------------------------------------------------------------------

'OutDataToText

'将MsFlexGrid控件中显示的内容输出到文本文件

Public Sub OutDataToText(Flex As MSFlexGrid)

Dim s As String

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim strTemp As String

On Error GoTo Ert

Me.MousePointer = 11

On Error Resume Next

DoEvents

Dim FileNum As Integer

FileNum = FreeFile

Open "d:aa.txt" For Output As #FileNum

With Flex

k = .Rows

For i = 0 To k - 1

strTemp = ""

For j = 0 To .Cols - 1

DoEvents

strTemp = strTemp .TextMatrix(i, j) ","

Next j

Print #FileNum, Left(strTemp, Len(strTemp) - 1)

Next i

End With

Close #FileNum

Me.MousePointer = 0

MsgBox "导出成功"

Ert:

MsgBox Err.Description

Me.MousePointer = 0

End Sub

增加 MsFlexGrid 的编辑功能

概述

MsFlexGrid 控件没有提供文本编辑的功能，下面的例子演示了如何利用一个TextBox 实现编辑当前网格的功能。

在按下一个键后， 就把TextBox 移动到当前的位置， 并激活。 在键入回车或移动到其他网格时，

就把TextBox 中的内容放到网格中。

实现步骤

1 打开 VB5， 开启一个新的工程。

2 在菜单“工程” 中选择 “部件”， 在列表中选中 “Microsoft FlexGrid Control ..”

3 放一个 MsFlexGrid 控件和一个TextBox 控件(Text1)到 Form1。 修改MsFlexGrid 控件的名称为 Grid1，

设置Grid1 的行，列 为 4， 固定行，列为 0。 设置 Text1 的 Visiable 为 False， BorderStyle 为

None(0)。

4 在Form1 的代码中增加声明：

Const ASC_ENTER = 13 '回车

Dim gRow As Integer

Dim gCol As Integer

5 增加代码到 Grid_KeyPress 过程：

Private Sub Grid1_KeyPress(KeyAscii As Integer)

' Move the text box to the current grid cell:

Text1.Top = Grid1.CellTop + Grid1.Top

Text1.Left = Grid1.CellLeft + Grid1.Left

' Save the position of the grids Row and Col for later:

gRow = Grid1.Row

gCol = Grid1.Col

' Make text box same size as current grid cell:

Text1.Width = Grid1.CellWidth - 2 * Screen.TwipsPerPixelX

Text1.Height = Grid1.CellHeight - 2 * Screen.TwipsPerPixelY

' Transfer the grid cell text:

Text1.Text = Grid1.Text

' Show the text box:

Text1.Visible = True

Text1.ZOrder 0 ' 把 Text1 放到最前面！

Text1.SetFocus

' Redirect this KeyPress event to the text box:

If KeyAscii ASC_ENTER Then

SendKeys Chr$(KeyAscii)

End If

End Sub

6 增加代码到 Text1_KeyPress 过程：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = ASC_ENTER Then

Grid1.SetFocus ' Set focus back to grid, see Text_LostFocus.

KeyAscii = 0 ' Ignore this KeyPress.

End If

End Sub

7 增加代码到 Text1_LostFocus 过程：

Private Sub Text1_LostFocus()

Dim tmpRow As Integer

Dim tmpCol As Integer

' Save current settings of Grid Row and col. This is needed only if

' the focus is set somewhere else in the Grid.

tmpRow = Grid1.Row

tmpCol = Grid1.Col

' Set Row and Col back to what they were before Text1_LostFocus:

Grid1.Row = gRow

Grid1.Col = gCol

Grid1.Text = Text1.Text ' Transfer text back to grid.

Text1.SelStart = 0 ' Return caret to beginning.

Text1.Visible = False ' Disable text box.

' Return row and Col contents:

Grid1.Row = tmpRow

Grid1.Col = tmpCol

End Sub

8 好了。 按 F5 开始测试。 您可以自由地在 Grid 中移动， 按回车可以开始或结束编辑。

使用MsFlexGrid控件的几个函数

作者：中国论坛网收集 来源： 加入时间：2004-8-25

在VB处理数据显示的时候,使用表格是一种好的方法,虽然DataGrid可以与数据源绑定,但是总有美中不足,就是

外观不好看,所以有时应用MsFlexGrid显示数据还是一种比较好的方法,以下几个函数是用来控制MsFlexGrid的程序

(本人语言表达能力有限,还请见谅)

''MsFlexGrid操作函数

''合并列

Public Function MergeCol(GridObj As Object, ByVal StartCol As Long, ByVal EndCol As Long, ByVal

ColValue As String, ByVal CurrentRow As Long) As Boolean

If StartCol EndCol Or StartCol GridObj.Cols Or CurrentRow GridObj.Rows Then

MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title

MergeCol = False

Exit Function

End If

For I = StartCol To EndCol

GridObj.MergeCol(I) = True

GridObj.TextArray(faIndex(GridObj, CurrentRow, I)) = ColValue

GridObj.ColAlignment(I) = flexAlignCenterCenter

Next I

GridObj.MergeRow(CurrentRow) = True

MergeCol = True

End Function

''合并行

Public Function MergeRow(GridObj As Object, ByVal StartRow As Long, ByVal EndRow As Long, ByVal

RowValue As String, ByVal CurrentCol As Long) As Boolean

If StartRow EndRow Or StartRow GridObj.Rows Or CurrentCol GridObj.Cols Then

MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title

MergeRow = False

Exit Function

End If

For I = StartRow To EndRow

GridObj.MergeRow(I) = True

GridObj.TextArray(faIndex(GridObj, I, CurrentCol)) = RowValue

GridObj.ColAlignment(CurrentCol) = flexAlignCenterCenter

Next I

GridObj.MergeCol(CurrentCol) = True

MergeRow = True

End Function

''转换索引

Public Function faIndex(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As Long

If row GridObj.Rows Or row 0 Or col GridObj.Cols Or col 0 Then

MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title

faIndex = -1

Exit Function

End If

faIndex = row * GridObj.Cols + col

End Function

''插入行

Public Function SetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer, ByVal

SetValue As String) As Boolean

If row GridObj.Rows Or row 0 Or col GridObj.Cols Or col 0 Then

MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title

SetItem = False

Exit Function

End If

GridObj.TextArray(faIndex(GridObj, row, col)) = SetValue

SetItem = True

End Function

''得到单元格值

Public Function GetItem(GridObj As Object, ByVal row As Integer, ByVal col As Integer) As String

If row GridObj.Rows Or row 0 Or col GridObj.Cols Or col 0 Then

MsgBox "对不起，行列设置错误！", vbOKOnly, App.Title

GetItem = ""

Exit Function

End If

GetItem = GridObj.TextArray(faIndex(GridObj, row, col))

End Function

在msflexgrid控件中每一个cell格的内容是不可以由用户直接编辑的但是我们可以通过一些小技

巧来方便的实现这编辑功能来扩展msflexgrid的应用（在实际应用中这是很常用的功能）。

你只需按下面的做即可轻松实现编辑msflexgrid控件数据的功能

例在窗体上放一文本框txtvalue，和一msflexgrid控件grid

‘文本框控件的keypress事件

private sub txtvalue_keypress(keyascii as integer)

‘放入一些处理过程，如只需输入数字时的处理

dim i

i=1

end sub

private sub txtvalue_change()

grid.text = txtvalue.text

end sub

'在grid的entercell事件中加入下例代码

private sub grid_entercell()

txtvalue.text = grid.text

txtvalue.selstart = 0

txtvalue.sellength = len(txtvalue.text)

end sub

'当用户输入数据时直接调用文本框的keypress事件

private sub grid_keypress(keyascii as integer)

txtvalue_keypress keyascii

end sub

ok,这样一个可编辑的msflexgrid控件就完成了，简单吧!!

Private Sub fgrid1_click() '单击MSFlexGrid

sphy = Trim(FGrid1.TextMatrix(FGrid1.Row, 0))

delrecord

End Sub

Private Sub fgrid1_RowColChange()'用上下键在MSFlexGrid上选择

sphy = Trim(FGrid1.TextMatrix(FGrid1.Row, 0))

delrecord

End Sub

Private Sub DeleteRecord()'删除

Dim I As Integer '

Dim Ssql As String

Dim response As String

response = MsgBox("真的删除当前记录?", vbInformation + vbYesNo, "警告")

If response = vbYes Then

Ssql = "delete from login where loginname='" sphy "'"

gcnLeaguers.Execute (Ssql)

MsgBox "删除成功！", vbInformation + vbOKOnly, "系统提示"

End If

Exit Sub

End Sub

删除后可能还要刷新一下，你试试吧

MSHFlexGrid1.SelectionMode = flexSelectionByRow

还是

Private Sub Form_Load()

With MSHFlexGrid1

.FixedCols = 0

.Cols = 2

.Rows = 0

.AddItem "1" vbTab "11"

.AddItem "2" vbTab "22"

.AddItem "3" vbTab "33"

End With

End Sub

Private Sub MSHFlexGrid1_RowColChange()

Static intPrevRow As Long

If MSHFlexGrid1.Row intPrevRow Then

intPrevRow = MSHFlexGrid1.Row

Dim i As Long

For i = 0 To MSHFlexGrid1.Cols - 1

MsgBox MSHFlexGrid1.TextMatrix(intPrevRow, i)

Next

End If

End Sub

原理

当用户点击msflexgrid中的某个cell格要输入数据时,产生entercell事件，在这里我们对文本

框进行初始化，输入当前cell格中的内容，并且选中所有文本。当用户要按下按键进行输入时，就直

接调用txtvalue的事件，由文本框来处理.

处理的结果同grid的当前cell同步，使用户编辑cell格就象使用文本框一样方便。

网格单元格中文字的多行显示很简单，只要把WordWarp属性改为True就可以了。

1.VB6自带MSHFlexGrid只支持2048条记录显示,这个问题通过装VB6 的SP6解决.

2.TopRow属性的使用,这个属性可以使用代码移动MSHFlexGrid的行显示,如要做一个从上至下的滚动显示，使用这个属性解决起来非常方便

3.使用选码高亮即选中显示某一行,如要选中第三行,可以使用代码:

MSHFlexGrid1.Row = 3

MSHFlexGrid1.TopRow =3

myMSHFlexGrid.ColSel = MSHFlexGrid1.Cols - 1

MSHFlexGrid中单击某一行变色，如何实现？

Option Explicit

Public j As Long

Private Sub RowColor(i As Long, j As Long)

'i代表现在点的这一行

Dim n As Long 'n代表列

With Me.MSHFlexGrid1

For n = 1 To .Cols - 1

.Row = i

.Col = n

.CellBackColor = HC0FFFF

If j 0 And i j Then

.Row = j

.CellBackColor = HFFFFFF

End If

Next n

j = i

End With

End Sub

Private Sub Form_Load()

With Me.MSHFlexGrid1

.Cols = 5

.Rows = 6

End With

End Sub

Private Sub MSHFlexGrid1_Click()

Call RowColor(Me.MSHFlexGrid1.Row, j)

Debug.Print j

End Sub