Private Sub Command1_Click()
Dim kd As String
kode = Text1.Text
kode = Left(Text1.Text, 3)
If kode = “BIM” Then
Text2.Text = “50000”
Text3.Text = “BIMA”
Text4.Text = “16.00”
ElseIf kode = “EKO” Then
Text2.Text = “35000”

Text3.Text = “EKONOMI”
Text4.Text = “19.00”
ElseIf kode = “MUT” Then
Text2.Text = “23000”
Text3.Text = “MUTIARA”
Text4.Text = “17.00”
ElseIf kode = “SEN” Then
Text2.Text = ” 15000″
Text3.Text = “SENJA”
Text4.Text = “20.00”
End If
Text5.SetFocus

Text6.Text = Val(Text5.Text) * Val(Text2.Text)

End Sub

Private Sub Command3_Click()
End
End Sub

Advertisements

Private Sub Check1_Click()
Label2.FontBold = True
End Sub

Private Sub Check2_Click()
Label2.FontItalic = True

End Sub

Private Sub Check3_Click()
Label2.FontUnderline = True

End Sub

Private Sub Check4_Click()
Label2.FontStrikethru = True
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbRed

End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbGreen
End Sub

Private Sub Option3_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option4_Click()
Label2.ForeColor = vbYellow
End Sub

Welcome to WordPress.com. After you read this, you should delete and write your own post, with a new title above. Or hit Add New on the left (of the admin dashboard) to start a fresh post.

Here are some suggestions for your first post.

  1. You can find new ideas for what to blog about by reading the Daily Post.
  2. Add PressThis to your browser. It creates a new blog post for you about any interesting  page you read on the web.
  3. Make some changes to this page, and then hit preview on the right. You can always preview any post or edit it before you share it to the world.