ＶＢ６で、イメージの部分に順番に図を表示していきたいのです。
それと、リストボックスで選択したものをファイルに書き込みたいのです。
以下のようにやってみたのですが、うまくいかずどうしていいか分かりません。
教えていただけないでしょうか。

Public dirl, angele As String
Dim fname(100) As String
Public cot As Integer

Private Sub form_load() 'フォームが開いたときの処理
Dir1 = "C:\Documents and Settings\karalab\My Documents\ito\図形\0" '表示イメージを読み込みするファイル
For i = 1 To 100
fname(i) = Str(i) + ".jpg"
Next
End Sub

'スタートの処理
Private Sub Command1_Click()
cot = 1
Image1.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
End Sub

'次へを押したときの処理
Private Sub Command2_Click()
Image2.Picture = LoadPicture(Dir1 + fname(cot)) 'イメージを表示
End Sub

Private Sub Command3_Click() '「END」ボタンを押した場合
End
End Sub