Private Sub ComboBox1_Change()
     lcol = Sheet1.Range("DX2").End(xlToLeft).Column
      k = ScrollBar1.Value
      k2 = ComboBox1.Value
       label1000.Caption = "ÑÞã :  " & k2
       If k2 <> "" Then
        For j = 1 To lcol
                            Me.Controls("textbox" & j).Text = Sheet1.Cells(k2, j).Offset(1, 0).Value
            Next j
        End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
 k = ScrollBar1.Value
lcol = Sheet1.Range("DX2").End(xlToLeft).Column
For j = 1 To lcol
  Sheet1.Cells(k + 1, j) = Me.Controls("textbox" & j)
            Next j
End Sub

Private Sub CommandButton3_Click()
 k = ScrollBar1.Value
 Sheet1.Cells(k + 1, 1).EntireRow.Delete
End Sub

Private Sub ScrollBar1_Change()
  Dim Rng As Range
     lcol = Sheet1.Range("DX2").End(xlToLeft).Column
      k = ScrollBar1.Value
      k2 = TextBox1000.Value


       label1000.Caption = "Number : " & k


       If k <> 0 And k2 <> 0 Then
       TextBox1000.Value = k
        For j = 1 To lcol
                            Me.Controls("textbox" & j).Text = Sheet1.Cells(k, j).Offset(1, 0).Value
            Next j
        End If
End Sub

Private Sub TextBox1000_Change()

     lcol = Sheet1.Range("DX2").End(xlToLeft).Column
     k = ScrollBar1.Value
      k2 = TextBox1000.Value
       label1000.Caption = "Number : " & k2
       If k2 <> "" Then
       ScrollBar1.Value = k2
       For j = 1 To lcol
                            Me.Controls("textbox" & j).Text = Sheet1.Cells(k2, j).Offset(1, 0).Value
            Next j
       End If
End Sub

Private Sub UserForm_Initialize()
  k = ScrollBar1.Value
       label1000.Caption = "Number : " & k
lcol = Sheet1.Range("DX2").End(xlToLeft).Column
            Dim myLabel As Control
            Dim txtbox As Control
For i = 1 To lcol
            Set myLabel = Frame1.Controls.Add("Forms.label.1", "label" & i, True)
            myLabel.Left = 250
            myLabel.Top = 12 + (i * 20)
            myLabel.Width = 150
            myLabel.Height = 15
            Set txtbox = Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i, True)
            txtbox.Left = 50
            txtbox.Top = 10 + (i * 20)
            txtbox.Width = 180
            txtbox.Height = 60


           Next i
         For j = 1 To lcol

                 With Frame1.Controls("label" & j)
                         .Caption = Sheet1.Cells(1, j).Value
                        .TextAlign = fmTextAlignCenter
                         .Font.Bold = True
                        .Font.Size = 11
                          .FontName = "Times New Roman"
                       .ForeColor = vbRed
                 End With
                  With Frame1.Controls("TextBox" & j)
                          .Text = Sheet1.Cells(1, j).Offset(1, 0).Value
                          .TextAlign = fmTextAlignRight
                         .Font.Bold = True
                      .Font.Size = 11
                         .FontName = "Times New Roman"
                           End With
                  With Frame1.Controls("TextBox1")
                    .Enabled = False
                  End With
                  'With Frame1.Controls("TextBox2")
                  '  .Enabled = False
                  'End With
                  With Frame1.Controls("TextBox3")
                    .Enabled = False
                  End With
              Next j
    End Sub