お世話になります。

下記のような、画像ファイルをVB6で複数作ろうとしています。
色のついた四角の中に、ファイル名と同じ文字を埋め込もうと思っています。
四角の大きさは変わりません。
画像ファイルは、GifでもPngでもBmpでもなんでも良いです。
中身の文字が決まっていないので、VB6で自動作成をしたいと思っています。
いちばん簡単な方法で作ろうと思っています。

具体的にどのようにすれば良いでしょうか？
よろしくお願いします。

Sample1.Gif
+---------+
|Sample1  |
+---------+

Sample2.Gif
+---------+
|Sample2  |
+---------+

Sample3.Gif
+---------+
|Sample3  |
+---------+

> 色のついた四角の中に、ファイル名と同じ文字を埋め込もうと思っています。
> 四角の大きさは変わりません。
> 画像ファイルは、GifでもPngでもBmpでもなんでも良いです。

描画系命令でどうぞ。詳細は、ヘルプの
　[Visual Basic ドキュメント]
　┗[Visual Basic の使用方法]
　　┗[プログラミング ガイド]
　　　┗[Visual Basic を使ってできること]
　　　　┗[テキストおよびグラフィックスの操作]
　　　　　┗[グラフィックス メソッドの使い方]
あたりを見てください。


Private Sub Command1_Click()
    Me.ScaleMode = vbPixels
    Picture1.ScaleMode = vbPixels
    Picture1.Font.Size = 18
    Picture1.Move 0, 0, 150, 70
    Picture1.AutoRedraw = True
    Picture1.BackColor = vbWhite
    Picture1.ForeColor = vbRed
    Picture1.FontTransparent = True

    Dim I As Integer
    Dim F As String
    Dim W As Single, H As Single
    For I = 1 To 3
        F = "さんぷる" & CStr(I)
        W = Picture1.TextWidth(F)
        H = Picture1.TextHeight(F)
        
        Picture1.Line (W + 20, H + 20)-(10, 10), vbYellow, BF
        Picture1.Print F
        SavePicture Picture1.Image, "C:\" & F & ".BMP"
        Picture1.Cls
    Next
End Sub