How to make custom dynamic user form

[gmaxey]

Private Sub UserForm_Initialize()
  'Adjust to suit the range of records you want.
  ListBox1.List = Application.Worksheets("Sheet1").Range("A2:C3").Value
  ListBox1.RowSource = "Sheet1!A2:C3"
End Sub