MENGANTI NAMA FONT

Private Sub chkStrike_Click()

If chkStrike.Value = 1 Then

   Lblsimple.FontStrikethru = True

   FrmHasil.lblhasil2.FontStrikethru = True

Else

   Lblsimple.FontStrikethru = False

   FrmHasil.LblHasil.FontStrikethru = False

   End If

End Sub

Private Sub chkUnder_Click()

If chkUnder.Value = 1 Then

   Lblsimple.FontUnderline = True

   FrmHasil.LblHasil.FontUnderline = True

Else

   Lblsimple.FontUnderline = False

   FrmHasil.LblHasil.FontUnderline = False

End If

End Sub

Private Sub CmdCancel_Click()

End

End Sub

Private Sub cmdOk_Click()

Unload Me

FrmHasil.Show

End Sub

Private Sub Form_Load()

lstfont.AddItem "Arial"

lstfont.AddItem "Times New Roman"

lstfont.AddItem "Courier"

lstfont.AddItem "MS Sans Serif"

lstfont.AddItem "Arial Narrow"

lstfont.AddItem "Algerian"

'================================

lststyle.AddItem "Regular"

lststyle.AddItem "Bold"

lststyle.AddItem "Italic"

'================================

'lstsize.Clear

'For i = 8 To 16

'    lstsize.AddItem i

'    Next i

lstsize.AddItem "8"

lstsize.AddItem "9"

lstsize.AddItem "10"

lstsize.AddItem "11"

lstsize.AddItem "12"

lstsize.AddItem "14"

lstsize.AddItem "16"

End Sub

Private Sub lstfont_Click()

txtfont.Text = (lstfont.Text)

End Sub

Private Sub lstSize_Click()

txtsize.Text = (lstsize.Text)

End Sub

Private Sub lstStyle_Click()

txtstyle.Text = (lststyle.Text)

Select Case lststyle.Text

       Case "Bold"

       Lblsimple.Font.Bold = True

       Lblsimple.Font.Italic = False

       FrmHasil.LblHasil.Font.Bold = True

       FrmHasil.LblHasil.Font.Italic = False

       Case "Italic"

       FrmHasil.LblHasil.Font.Italic = True

       Lblsimple.Font.Italic = True

       Lblsimple.Font.Bold = False

       FrmHasil.LblHasil.Font.Bold = False

       Case selec

    Lblsimple.Font.Bold = False

    Lblsimple.Font.Italic = False

End Select

End Sub

Private Sub txtfont_Change()

Lblsimple.Font = (txtfont.Text)

FrmHasil.LblHasil.Font = (txtfont.Text)

FrmHasil.LblHasil.Caption = "AaBbYyZz " & txtfont.Text

End Sub

Private Sub txtsize_Change()

Lblsimple.FontSize = (txtsize.Text)

FrmHasil.LblHasil.FontSize = (txtsize.Text)

End Sub

Private Sub CmdKembali_Click()

Unload Me

FrmFont.Show

End Sub