Kod: Tümünü seç

Private Sub Form_Load()
MSFlexGrid1.Cols = 4
MSFlexGrid1.Rows = 6
MSFlexGrid1.Col = 0
For g = 1 To 5
MSFlexGrid1.Row = g
MSFlexGrid1.Text = g
Next g
MSFlexGrid1.Row = 0
For a = 1 To 3
MSFlexGrid1.Col = a
MSFlexGrid1.Text = Chr(64 + a)
Next a
End Sub

Private Sub MSFlexGrid1_Click()
Text1 = MSFlexGrid1.Row
Text2 = MSFlexGrid1.Col
bilgi = InputBox("bilgi girin", "BİLGİ")
MSFlexGrid1.Text = bilgi
End Sub