Guest User

Untitled

a guest
Apr 25th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.93 KB | None | 0 0
  1. Public Class Form1
  2. Dim Sparkplugs(,) As String =
  3. {{"PR214", "MR43T", "RBL8", "14K22"},
  4. {"PR224", "R43N", "RN4", "14K30"},
  5. {"PR246", "R43N", "RB8", "14K32"},
  6. {"PR247", "R46TS", "RBL17Y", "14K33"},
  7. {"PR248", "R46TX", "RBL12-6", "14K35"},
  8. {"PR324", "S46", "J11", "14K38"},
  9. {"PR326", "SR46E", "XEJ8", "14K40"},
  10. {"PR444", "47L", "H12", "14K44"}}
  11. Dim Brand() As String = {"VB-Auto", "A", "B", "C"}
  12. Dim Parts() As Integer = {1, 2, 3, 4, 5, 6, 7, 8}
  13.  
  14. Private Sub QuitB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitB.Click
  15. Me.Close()
  16. End Sub
  17.  
  18. Private Sub FindB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindB.Click
  19.  
  20. If Ab.Checked = True Then
  21.  
  22. End If
  23. If Bb.Checked = True Then
  24.  
  25. End If
  26. If Cb.Checked = True Then
  27.  
  28. End If
  29.  
  30. End Sub
  31. End Class
Add Comment
Please, Sign In to add comment