Private Sub Form_Load()
Me.Picture1.AutoRedraw = True
Me.Picture1.ScaleMode = 6
Me.Picture2.AutoRedraw = True
Me.Picture2.ScaleMode = 6
Me.Picture3.AutoRedraw = True
Me.Picture3.ScaleMode = 6
Me.Picture1.Line (0, 0)-(20, 20)
Me.Picture2.Line (0, 0)-(20, 20)
Me.Picture3.Line (0, 0)-(20, 20)
Me.PrintForm
End Sub