Benyandriansyah

Private Sub chkbold_Click() 'membuat teks tebal If chkbold.Value = 1 Then     lblteks.FontBold = True Else     lblteks.FontBold = False End If End Sub Private Sub chkitalic_Click() 'membuat teks miring If chkitalic.Value = 1 Then     lblteks.FontItalic = True Else     lblteks.FontItalic = False End If End Sub Private Sub chkstrike_Click() 'membuat teks strikeout If chkstrike.Value = 1 Then     lblteks.FontStrikethru = True Else     lblteks.FontStrikethru = False End If End Sub Private Sub chkunder_Click() 'membuat teks garis bawah If chkunder.Value = 1 Then     lblteks.FontUnderline = True Else     lblteks.FontUnderline = False End If End Sub Private Sub Command1_Click() End End Sub Private Sub Optblue_Click() 'membuat teks berwarna biru lblteks.ForeColor = vbBlue End Sub Private Sub Optgreen_Click() 'membuat teks berwarna hijau lblteks.ForeColor = v

Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdulang_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" 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 cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdulang_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub

Private Sub cmdhitung_Click() Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(teks2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdulangi_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(teks2) End If End Sub

Private Sub cmdhitung_Click() Text2 = Val(Text1) * 0.1 Text3 = Val(Text1) - Val(teks2) End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdulangi_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub