VB 6.0

 

vb 6.0

 

 Private Sub chkBold_Click()
                              If chkBold.Value = 1 Then
                              lblTeks.FontBold = True
                              Else
                              lblTeks.FontBold = False
                              End If
                              End Sub

                              Private Sub chkItalic_Click()
                              If chkItalic.Value = 1 Then
                              lblTeks.FontItalic = True
                              Else
                              lblTeks.FontItalic = False
                              End If
                              End Sub

                              Private Sub chkStrike_Click()
                              If chkStrike.Value = 1 Then
                              lblTeks.FontStrikethru = True
                              Else
                              lblTeks.FontStrikethru = False
                              End If
                              End Sub

                              Private Sub chkUnder_Click()
                              If chkUnder.Value = 1 Then
                              lblTeks.FontUnderline = True
                              Else
                              lblTeks.FontUnderline = False
                              End If
                              End Sub

                              Private Sub cmdExit_Click()
                              Unload Me
                              End Sub

                              Private Sub OptBlue_Click()
                              lblTeks.ForeColor = vbBlue
                              End Sub

                              Private Sub optGreen_Click()
                              lblTeks.ForeColor = vbGreen
                              End Sub

                              Private Sub optRed_Click()
                              lblTeks.ForeColor = vbRed
                              End Sub

                              Private Sub optYellow_Click()
                              lblTeks.ForeColor = vbYellow
                              End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: