Membuat Font Zooming otomatis vb6

Untuk membuat font zooming otomatis di vb6 yang dibutuhkan adalah 1 text1, 2 Command dan 1 Timer, Setting timer interval menjadi 500, enabled ganti false, Command1 ganti text menjadi Zoom dan Command2 ganti menjadi Stop atau berhenti, lihat gambar dibawah ini:

Kemudian klik 2 kali form1 hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
End Sub

Ketika Command Zoom diklik maka otomatis ukuran font yang ada di text1 akan membesar sendiri dan ketika Command Berhenti diklik maka zooming akan berhenti secara otomatis juga.