Program Pilkada pada visual Basic

Sebelum masuk pada form menu,, kita logiin dulu ok seperti pada form dibawah ini :

nah,, jika login berhasil kita akan masuk ke form Menu Utama yang didalamnya terdapat form-form yang telah di add pada project ini,, mari kita lihat tampilan form menu utamanya,,,

Kemudian jalankan salah satu form yang tersedia pada menu bar,, untuk contoh yang telah saya buat, pada form menu saya klik menu bar "Count" kemudian saya klik dan jalankan "Pilkada" kemudian akan muncul form seperti tampilan dibawah ini :

Untuk Listing Codingnya seperti dibawah ini :

Private Sub vote_Click()

pas1 = Val(pas1.Text)
pas2 = Val(pas2.Text)
pas3 = Val(pas3.Text)

If (pas1 > pas2) And (pas3 < pas1) Then
    hasil = pas1
    hasil.Caption = "Pasangan 1 dengan jumlah suara " + hasil
ElseIf (pas2 > pas1) And (pas3 < pas2) Then
    hasil = pas2
    hasil.Caption = "Pasangan 2 dengan jumlah suara " + hasil
ElseIf (pas3 > pas1) And (pas2 < pas3) Then
    hasil = pas3
    hasil.Caption = "Pasangan 3 dengan jumlah suara " + hasil
Else
    hasil = "Hasil Suara Seri/Tidak Ada Pemenang !"
    hasil.Caption = hasil
    End If
End Sub