• Home
 · 
• Graphics
 · 
• Printing pixels around the name.

Printing pixels around the name.

Printing pixels around the name.

API Declarations


Dim tw As Single
Dim th As Single





Rate Printing pixels around the name.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
DrawWidth = 2
Me.FontSize = 30
CurrentX = Me.ScaleWidth / 2
CurrentY = Me.ScaleHeight / 2
str = "Vinod"
tw = TextWidth(str)
th = TextHeight(str)
Print str
stx = Me.ScaleWidth / 2
sty = Me.ScaleHeight / 2
For lft = stx To (stx + tw) Step 70
For wd = sty To (sty + th) Step 70
PSet (lft, wd), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next
DoEvents
Next
End Sub