VISUAL BASIC: Menentukan Bulan Hijriah dan Masehi + source code

Cara buat nya mudah kok mas bro..mb bro.. hehe..
pertama-tama kamu harus buat form seperti gambar di atas tu.. bisa di liat dan di cermati.. nah kemudian masukkan syntax nya di bawah ini,,

Private Sub Combo1_Change()
Dim hijriah As String
Dim bulan_ke As Byte
Text1.Text = hijriah
Text2.Text = bulan_ke
End Sub
Private Sub Combo1_click()

If Combo1.Text = "Januari" Then
Text1.Text = "Muharrom"
Text2.Text = 1

ElseIf Combo1.Text = "Februari" Then
Text1.Text = "Shafar"
Text2.Text = 2

ElseIf Combo1.Text = "Maret" Then
Text1.Text = "Rabiul awwal"
Text2.Text = 3

ElseIf Combo1.Text = "April" Then
Text1.Text = "Rabiul tsani"
Text2.Text = 4

ElseIf Combo1.Text = "Mei" Then
Text1.Text = "Jumadil ula"
Text2.Text = 5

ElseIf Combo1.Text = "Juni" Then
Text1.Text = "Jumadil tsaniah"
Text2.Text = 6

ElseIf Combo1.Text = "Juli" Then
Text1.Text = "Rajab"
Text2.Text = 7

ElseIf Combo1.Text = "Agustus" Then
Text1.Text = "Sya'ban"
Text2.Text = 8

ElseIf Combo1.Text = "September" Then
Text1.Text = "Ramadhan"
Text2.Text = 9

ElseIf Combo1.Text = "Oktober" Then
Text1.Text = "Syawwal"
Text2.Text = 10

ElseIf Combo1.Text = "November" Then
Text1.Text = "Dzulqo'dah"
Text2.Text = 11

ElseIf Combo1.Text = "Desember" Then
Text1.Text = "Dzulhijjah"
Text2.Text = 12
End If
End Sub
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.BackColor = vbWhite
Label2.BackColor = vbWhite
Label3.BackColor = vbWhite
Form1.BackColor = vbWhite



End Sub

'bualan dalam hijriah
'Muharrom
'Shafar
'Rabiul awwal
'Rabiul tsani
'Jumadil ula
'Jumadil tsaniah
'Rajab
'Sya'ban
'Ramadhan
'Syawwal
'Dzulqo'dah
'Dzulhijjah



udah selesai deh tugasnya..

warning: coba dulu kalo gak bisa baru copas..
tanks.. :)