Advertisement
Guest User

Untitled

a guest
Mar 29th, 2020
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.62 KB | None | 0 0
  1. Public Class Latihan4
  2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  3. Dim x As Integer
  4. For x = 1 To 7
  5. ListBox1.Items.Add(WeekdayName(x))
  6. Next
  7. End Sub
  8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  9. Dim result As Integer = MsgBox("Apakah Anda Sudah Yakin Mau Keluar? ", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Informasi")
  10. If result = DialogResult.OK Then
  11. Me.Close()
  12. Else
  13. End If
  14. End Sub
  15. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement