CODINGANNYA :
Private Sub Command1_Click()
Label2.Caption = Text1.Text
Label1.Caption = Text1.Text
End Sub
Private Sub Command10_Click()
Label1.ForeColor = &HC0C000
End Sub
Private Sub Command11_Click()
Label1.Alignment = 0
End Sub
Private Sub Command12_Click()
Label1.Alignment = 2
End Sub
Private Sub Command13_Click()
End Sub
Private Sub Command14_Click()
End
End Sub
Private Sub Command2_Click()
Text1.Enabled = True
Label2.Enabled = True
Command1.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command3_Click()
Label2.Caption = ""
Text1.Text = "" silakan download di bawah sini
Label1.Caption = ""
End Sub PROGRAM FONTSTYLE
Private Sub Command4_Click()
Text1.Enabled = False
Label2.Enabled = False
Command1.Enabled = False
Command3.Enabled = False
End Sub
Private Sub Command5_Click()
Label1.Font = "Times New Roman"
End Sub
Private Sub Command6_Click()
Label1.FontBold = True
End Sub
Private Sub Command7_Click()
Label1.FontItalic = True
End Sub
Private Sub Command8_Click()
Label1.ForeColor = &HFF&
End Sub
Private Sub Command9_Click()
Label1.ForeColor = &HFF0000
End Sub
<<<SELAMAT MEMBUATNYA>>>
SEMOGA BERMANFAAT UNTUK TEMAN-TEMAN
0 komentar:
Posting Komentar