Option Explicit
Dim R, C
Private Sub Form_Load()
For R =  1  To  120 
    For C =  1  To  6 
       Load Me.K(R *  100  + C)
       K(R *  100  + C).Left = C *  1000  -  500 
       K(R *  100  + C).Top = R *  300  +  50 
       K(R *  100  + C).Visible = True
               K(R *  100  + C).Text = ChrW( 13000  + R + C)
               If C =  1  Then K(R *  100  + C).Text = R
Next C
Next R
End Sub

Private Sub ВСкролинг1_Change()
For R =  1  To  120 
    For C =  1  To  6 
       K(R *  100  + C).Top = R *  300  - ВСкролинг1.Value
Next C, R
End Sub

Private Sub Комманда1_Click()
Dim F
R = InputBox("Введите номер строки", "", Int( 120  * Rnd +  1 ))
C = InputBox("Введите номер столбца", "", Int( 6  * Rnd +  1 ))
F = InputBox("Введите код символа", "", Int( 10000  * Rnd +  1 ))
       K(R *  100  + C).Text = ChrW(F)
End Sub