再請問MSHFlexGrid(編號：5908)

我已明白了系統註冊區，再請教各位高手，我該把此程式寫在那裏?
比如MSHFlexGrid ........的事件程式
Dim DataSource As String
　 DataSource = GetDataSource(Adodc1)
　 If DataSource ＜＞ "" Then
　　　SaveSetting" Name", DataSource,　MSHFlexGrid1.Col,　　 MSHFlexGrid1.ColWidth(i)
　　　　　 End If
___.(如此程式有錯，請指正)___________________
比如在Datagrid 我把此程式放在:
Private Sub DataGrid1_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
Dim DataSource As String
　　
　 DataSource = GetDataSource(Adodc1)
　 If DataSource ＜＞ "" Then
　　　SaveSetting "Name", DataSource, _
　　　　　　DataGrid1.Columns(ColIndex).DataField,　DataGrid1.Columns(ColIndex).Width
　　　　　
　 End If
先謝謝各位!