Sub ResetBoard() 'reset all the cells back to form load(imgCellBG.Picture) Dim r As Integer Dim c As Integer flexCleo.Redraw = False DoEvents For c = 0 To 9 For r = 0 To 7 With flexCleo .Col = c .Row = r .CellForeColor = vbWhite '.CellPicture = imgHitUnSelected.Picture Set .CellPicture = imgCellBG.Picture End With Next Next flexCleo.Redraw = True End Sub
|Upgrading VB6 to VB.Net: Replace VB6 API's and Hidden functions with VB.Net Upgrade?||8||68|
|passing parameter in sql procedure||9||56|
|Getting warning: You are about to delete 1 row(s)||9||43|
|using web browser with BING||40||110|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!