Private Sub Form_Load()Me.AutoRedraw = TrueEnd Sub Private Sub Form_Resize()Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd Sub