hello here is my code

VB Code:
  1. Private Sub Command1_Click()

  2.  
  3. With Picture1

  4.      Picture1.ScaleMode = 3 'Pixel

  5.     .FontName = Combo1.Text

  6.     .ForeColor = vbWhite

  7.     .FontSize = Text5.Text

  8.     .AutoRedraw = True

  9.     

  10.     .Cls

  11.     

  12.     .PaintPicture Image1.Picture, 0, 0

  13.     .PaintPicture Image2.Picture, 0, 0, 150, 150

  14.    

  15.      

  16.   Picture1.CurrentX = Text3.Text

  17.   Picture1.CurrentY = Text4.Text

  18.   Picture1.Print Text2.Text

  19.   End If

  20.  

  21.   End With

  22.   

  23. End Sub


now how do i make the text it prints AntiAlias ?