Please remember without columns you can not add rows in datagrid. So first add columns then add row.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.txtcolumn.Text.Trim = "" Or Char.IsDigit(Me.txtcolumn.Text) = False Then
MsgBox("Pls enter any digit!")
Exit Sub
ElseIf Me.txtcolumn.Text = "0" Then
MsgBox("Pls enter any digit from 1 to 5")
Exit Sub
End If
If Me.txtrow.Text.Trim = "" Or Char.IsDigit(Me.txtrow.Text) = False Then
MsgBox("Pls enter any digit!")
Exit Sub
ElseIf Me.txtrow.Text = "0" Then
MsgBox("Pls enter any digit from 1 to 5")
Exit Sub
End If
Dim oCol, oRow As Integer
While (oCol <> Val(Me.txtcolumn.Text))
Me.DataGrid1.Columns.Add("Col" & oCol, oCol)
oCol = oCol + 1
End While
oCol = 0
If Me.DataGrid1.Columns.Count > 0 Then
While (oRow <> Val(Me.txtrow.Text))
Me.DataGrid1.Rows.Add()
oRow = oRow + 1
End While
End If
oRow = 0
End Sub