کد برنامه در ادامه مطلب....
Private Sub cblod_Click()
If cblod.Value = 1 Then
l1.FontBold = True
Else
l1.FontBold = False
End If
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
l1.FontStrikethru = True
Else
l1.FontStrikethru = False
End If
End Sub
Private Sub Citalic_Click()
If Citalic.Value = 1 Then
l1.FontItalic = True
Else
l1.FontItalic = False
End If
End Sub
Private Sub cunderline_Click()
If cunderline.Value = 1 Then
l1.FontUnderline = True
Else
l1.FontUnderline = False
End If
End Sub
Private Sub o1_Click()
l1.ForeColor = vbRed
End Sub
Private Sub o2_Click()
l1.ForeColor = vbGreen
End Sub
Private Sub o3_Click()
l1.ForeColor = vbBlue
End Sub
Private Sub Option1_Click()
l1.BackColor = vbRed
End Sub
Private Sub Option2_Click()
l1.BackColor = vbGreen
End Sub
Private Sub Option3_Click()
l1.BackColor = vbBlue
End Sub
Private Sub Option4_Click()
l1.BackColor = vbWhite
End Sub
برای دانلود برنامه اینجاکلیک کنید