Pujakattrin

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check2.Value End Sub Private Sub cmdselesai_Click() End End Sub Private Sub ketik_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Label2 = ketik.Text End If End Sub Private Sub ok_Click() Label2.Caption = ketik.Text End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub Biru_Click() Label1.ForeColor = vbBlue End Sub Private Sub Command1_Click() End End Sub Private Sub Coret_Click() 'membuat teks coret If Coret.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub Garisbawah_Click() 'membuat garis bawah If Garisbawah.Value = 1 Then Label1.FontUnderline = True Else Label.FontUnderline = False End If End Sub Private Sub Kuning_Click() Label1.ForeColor = vbYellow End Sub Private Sub Merah_Click() Label1.ForeColor = vbRed End Sub Private Sub Hijau_Click() Label1.ForeColor = vbGreen End Sub Private Sub Miring_Click() 'membuat teks miring If Miring.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Tebal_Click() 'membuat teks tebal If Tebal.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub...

Private Sub Command1_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End If End Sub

Private Sub Command1_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text3.SetFocus End If End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KEYPRESS(KEYASCII As Integer) If KEYASCII = 13 Then Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(Text2) End If End Sub