membuat aplikasi penjualan tiket kendaraan

Ini Untuk Coding,,, nya selamat mencoba
Private Sub Command1_Click()
End
End Sub

Private Sub proses_Click()
'Gunakan fungsi IF untuk menguji nilai kode
    If kode.Text = "KA" Then
       jenis.Text  "Kereta Api"
       harga.Text = 125000
    ElseIf kode.Text = "KL" Then
       jenis.Text  "Kapal Laut"
       harga.Text = 250000
    ElseIf kode.Text = "KT" Then
       jenis.Text  "Kapal Terbang"
       harga.Text = 750000
    End If
'menghitung nilai Total
  total.Text = harga.Text * jml.Text
End Sub

semoga bermanfaat bagi anda para pemula