Inherits System.Windows.Forms.Form
Private Sub InitializeComponent()
Me.Text = "CV - Bastiaan"
Me.Size = New Size(800, 600)
Me.StartPosition = FormStartPosition.CenterScreen
End Sub
Private name
As String =
"Bastiaan"
Private dob
As String =
"792202172"
Private picture
As String =
"https://hoes.dev/picture.jpg"
Private country
As String =
"The Netherlands"
Private title
As String =
"System Administrator/Developer"
Private contact
As New List(Of String) From {
"email: [email protected]",
"phone: ask"}
Private Sub Form1_Load(
sender As Object,
e As EventArgs)
Handles MyBase.Load
LoadPersonalData()
LoadEducation()
LoadSkills()
LoadProjects()
End Sub
Private Sub LoadEducation()
Dim education As New List(Of String) From {
"Koning Willem 1 College: 2012 - 2013 - Global Management ICT",
"Koning Willem 1 College: 2014 - 2016 - Management ICT/Network Administrator",
"Rijn Ijssel College: 2016 - 2018 - Application Developer/Administrator"}
End Sub
Private Sub LoadSkills()
Dim skills As New Dictionary(Of String, List(Of String)) From {
{"languages", New List(Of String) From {"VB.Net", "Python", "C#", "JavaScript/TypeScript", "HTML/CSS", "PHP", "Go", "Rust", "Swift", "Kotlin", "Bash", "Basic IL"}},
{"frameworks", New List(Of String) From {"React", "Vue.js", "Next.js", "Node.js", ".NET Core", "ASP.NET", "FastAPI", "Express.js", "SwiftUI", "Jetpack Compose", "Tailwind CSS"}},
{"ai_ml", New List(Of String) From {"ChatGPT/OpenAI API", "Claude API", "Gemini API", "LangChain", "Prompt Engineering", "AI Integration", "AI Agents/Automations", "Machine Learning Basics", "Computer Vision", "NLP"}},
{"databases", New List(Of String) From {"SQL", "PostgreSQL", "MongoDB", "Redis", "SQLite"}},
{"cloud_devops", New List(Of String) From {"Linux", "Docker", "Kubernetes", "AWS/Azure", "Nginx", "CI/CD", "Git/GitHub", "Intune"}},
{"integrations", New List(Of String) From {"REST APIs", "GraphQL", "WebSockets", "Web Serial API", "Discord API", "Telegram Bot API", "Shopify", "Mollie Payments"}},
{"other", New List(Of String) From {"Powershell", "Microsoft Office Suite", "Networking", "Mesh/LoRa Radio", "Licensing & Payments", "Advanced Thread Protection", "Http(s) (reversing)"}}}
End Sub
Private Sub LoadProjects()
Dim projects
As New List(Of String) From {
"DarkOffset: Commercial platform for game trainers and mods with shop, licensing and custom loader (https://darkoffset.com/)",
"MeshKit: Web interface for MeshCore mesh radio networks - messaging, maps, automations, AI and Discord/Telegram bridges (https://meshkit.nl/)",
"List Alert: A Crypto Listing Bot",
"Wie Nog Wakker App (iOS): An app for iPhone that shows who is awake at night (Focused on the party scene during the corona pandemic)",
"BingoPlatform: A handy tool for automating online bingo games + donation timer",
"Chatbridge: A tool that converts WhatsApp messages to comma-separated or Json output, so streamtools (vMix or OBS) can read it"}
End Sub