
Private Sub Form_Load()

BSE1.SchemeStyle = Index
BSE1.EndSubClassing
BSE1.InitSubClassing
End Sub
