VB6 Runtime error 381 subsript out of range Error

• • Reply

  11 years ago

  by pramodmca09

  Pramod Choudhari

  pune, India

  Joined 11 years ago

  Private Sub Command1_Click() With MSHFlexGrid1 .Rows = 10 .Cols = 10 For i = 1 To 10 For j = 1 To 10 .TextMatrix(i, j) = i & " " & j Next j .Rows = .Rows + 1 Next i

  End With

  End Sub

  this is my vb6 code giving Runtime Error Substript Out of Range please help me Thank you Pramod

  Report abuse
• • Reply

  11 years ago

  by pramodmca09

  Pramod Choudhari

  pune, India

  Joined 11 years ago

  Private Sub Command1_Click() With MSHFlexGrid1 .Rows = 10 .Cols = 10 For i = 1 To 10 For j = 1 To 10 .TextMatrix(i, j) = i & " " & j Next j .Rows = .Rows + 1 Next i

  End With

  End Sub

  this is my vb6 code giving Runtime Error Substript Out of Range please help me Thank you Pramod

  Report abuse
• • Reply

  11 years ago

  by Uncle

  Uncle

  England, United Kingdom

  Joined 19 years ago

  The cells in the grid start at 0,0 not 1,1 so your loops need to be For i = 0 to 9 not 1 to 10.

  Report abuse