How am I PaintPicture in UserControl

[ii128]

I try to paint picture in Usercontrol, but nothing shows up when I run the Usercontrol.


Dim x As Picture

Set x = LoadPicture("c:\test vB\k-kabe48.gif&quot

Dim i As Integer
Dim p As Integer
i = 0
p = 0

Do Until i > UserControl1.Height
Do Until p > UserControl1.Width
UserControl1.PaintPicture x, p, i
p = p + 2900
Loop
i = i + 2900
p = 0
Loop