TUGAS 2 PROGRAM 5 BP1


Private Sub Optionred_Click()
Label1.ForeColor = vbRed

End Sub

Private Sub Optionyellow_Click()
Label1.ForeColor = vbYellow

End Sub

Private Sub Optionblue_Click()
Label1.ForeColor = vbBlue
End Sub

Private Sub optiongreen_Click()
Label1.ForeColor = vbGreen
End Sub

Private Sub checkbold_Click()
If Checkbold.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False

End If
End Sub

Private Sub checkitalic_Click()
If Checkitalic.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub

Private Sub checkstrikethru_Click()
If Checkstrikethru.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub checkunderline_Click()
If Checkunderline.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub


Private Sub Command1_Click()
Unload Me
End Sub

Komentar

Postingan populer dari blog ini

Mulai Tahun Depan, Singapura Akan Hentikan Penjualan Mobil Umum Di Negaranya

MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT

Selama Bulan Oktober, Xiaomi Berhasil Jual 10 Juta Smartphone