Permainan Warna dan Format Tulisan Pada Visual Basic

Pengenalan Visual Basic

Listing Program :

Private Sub Cmdbiru_Click()
Me.txtnama.ForeColor = vbBlue
End Sub

Private Sub cmdbold_Click()
Me.txtnama.FontBold = True
Me.txtnama.FontItalic = False
Me.txtnama.FontUnderline = False
End Sub

Private Sub cmdkeluar_Click()
pesan = MsgBox("Sampai Jumpa Lagi", vbOKOnly, "Belajar VB")
If pesan = vbOK Then
Unload Me
End If
End Sub

Private Sub cmdkenal_Click()
Me.txtnama.Text = "Mutiarawati"
End Sub

Private Sub cmdkuning_Click()
Me.txtnama.ForeColor = vbYellow
End Sub

Private Sub CmdMerah_Click()
Me.txtnama.ForeColor = vbRed
End Sub

Private Sub cmdMiring_Click()
Me.txtnama.FontItalic = True
Me.txtnama.FontBold = False
Me.txtnama.FontUnderline = False
End Sub

Private Sub cmdunderline_Click()
Me.txtnama.FontUnderline = True
Me.txtnama.FontBold = False
Me.txtnama.FontItalic = False
End Sub