1.Bukan Program Visual Basic 2005 Express Edition
2.Membuat:

Label1	Name	Penjumlahan
Label2	Name	Satuan Penjumlahan
Label3	Name	Diubah Kedalam Satuan
Label4	Name	Hasil
Texbox1	-
Texbox1	-
Combobox1	-text -Edition	-“Satuan Waktu” -Detik,menit,jam
Combobox2	-text -Edition	-“Satuan Waktu” -Detik,menit,jam
Button	Text	OK

 3.Klik di Button Yang Anda Tadi Buat
 4.Terus ketik/copy source code tersebut.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim jumlah As Integer
Dim awal As String
Dim ubah As String
Dim hasil As String

jumlah = CInt(TextBox1.Text)
awal = CStr(ComboBox1.Text)
ubah = CStr(ComboBox2.Text)
hasil = (TextBox2.Text)

If awal = "detik" And ubah = "menit" Then
hasil = jumlah / 60
ElseIf awal = "detik" And ubah = "jam" Then
hasil = jumlah / 3600
ElseIf awal = "detik" And ubah = "detik" Then
hasil = jumlah * 1
ElseIf awal = "menit" And ubah = "detik" Then
hasil = jumlah * 60
ElseIf awal = "menit" And ubah = "menit" Then
hasil = jumlah * 1
ElseIf awal = "menit" And ubah = "jam" Then
hasil = jumlah / 60
ElseIf awal = "jam" And ubah = "detik" Then
hasil = jumlah * 3600
ElseIf awal = "jam" And ubah = "menit" Then
hasil = jumlah * 60
ElseIf awal = "jam" And ubah = "jam" Then
hasil = jumlah * 1
End If

TextBox2.Text = hasil








End Sub


Terimakasih Semoga Bermanfaat Bagi Anda ....