Font Zooming Manual & Otomatis VB6

Font Zoom ini dibuat menggunakan VB6  dengan menu merubah font menjadi BOLD, ITALIC, UNDERLINDE, Merubah Ukuran Font, Merubah Jenis Font, Zoom 5x Manual, Zoom 10x Manual, Zoom 100x Manual, Zoom Otomatis, Stop Zooming, Mengganti warna Font pada label1 dan reset data.

 Kodenya seperti ini:

Private Sub Combo1_Click()
Label1.Font = Combo1.Text
End Sub


Private Sub Combo2_Click()
Label1.FontSize = Combo2.Text
End Sub


Private Sub Command1_Click()
Label1.FontSize = Text1.FontSize + 5
End Sub

Private Sub Command10_Click()
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Private Sub Command2_Click()
Label1.FontSize = Text1.FontSize + 10
End Sub

Private Sub Command3_Click()
Label1.FontSize = 12
Timer1.Enabled = False
End Sub


Private Sub Command4_Click()
If Label1.FontBold = True Then
Label1.FontBold = False
Else
Label1.FontBold = True
End If
End Sub

Private Sub Command5_Click()
If Label1.FontUnderline = True Then
Label1.FontUnderline = False
Else
Label1.FontUnderline = True
End If
End Sub

Private Sub Command6_Click()
If Label1.FontItalic = True Then
Label1.FontItalic = False
Else
Label1.FontItalic = True
End If
End Sub

Private Sub Command7_Click()
Label1.FontSize = Text1.FontSize + 100
End Sub



Private Sub Command8_Click()
Timer1.Enabled = True
Label1.Font = "Agency FB"
End Sub

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

Private Sub Form_Load()
Label1.FontSize = 12
End Sub

Private Sub Text1_Change()
Label1 = Text1
End Sub

Private Sub Timer1_Timer()
Label1.FontSize = Label1.FontSize + 5
If Label1.ForeColor = &HF0& Then
Label1.ForeColor = &H80000012
Else
Label1.ForeColor = &HF0&
End If
End Sub

Download Filenya Disini