With Source Code — Visual Basic Projects

If emptyCells.Count > 0 Then Dim rnd As New Random() Dim move = emptyCells(rnd.Next(emptyCells.Count)) MakeMove(move.Item1, move.Item2, "O") End If End Sub

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click If imageFiles IsNot Nothing Then currentIndex = (currentIndex + 1) Mod imageFiles.Length ShowImage() End If End Sub

If board(row, col) = "" AndAlso gameActive AndAlso currentPlayer = "X" Then MakeMove(row, col, "X") If gameActive Then currentPlayer = "O" lblStatus.Text = "Computer's turn..." ComputerMove() currentPlayer = "X" End If End If End Sub visual basic projects with source code

Private Sub SaveTasks() Using writer As New StreamWriter(tasksFile) For Each task In lstTasks.Items writer.WriteLine(task.ToString()) Next End Using End Sub

Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click If lstTasks.SelectedItem IsNot Nothing Then lstTasks.Items.Remove(lstTasks.SelectedItem) SaveTasks() End If End Sub If emptyCells

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click If txtTask.Text.Trim() <> "" Then lstTasks.Items.Add(txtTask.Text) txtTask.Clear() SaveTasks() End If End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load conn = New SQLiteConnection(connectionString) conn.Open() ' Create table if not exists Dim cmd As New SQLiteCommand("CREATE TABLE IF NOT EXISTS Students (ID INTEGER PRIMARY KEY AUTOINCREMENT, Name TEXT, Grade INTEGER)", conn) cmd.ExecuteNonQuery() LoadData() End Sub If emptyCells.Count &gt

Select Case operation Case "+" : result = firstNumber + secondNumber Case "-" : result = firstNumber - secondNumber Case "*" : result = firstNumber * secondNumber Case "/" : result = firstNumber / secondNumber End Select

If CheckWin(player) Then lblStatus.Text = $"{player} wins!" gameActive = False ElseIf IsDraw() Then lblStatus.Text = "Draw!" gameActive = False End If End Sub

Let me know in the comments which project you plan to build first, or share your own VB project ideas below! Happy coding! 🚀

Public Class TicTacToe Dim board(2, 2) As String ' "X", "O", or "" Dim currentPlayer As String = "X" Dim gameActive As Boolean = True Private Sub Button_Click(sender As Object, e As EventArgs) Handles btn00.Click, btn01.Click, btn02.Click, btn10.Click, btn11.Click, btn12.Click, btn20.Click, btn21.Click, btn22.Click Dim btn As Button = CType(sender, Button) Dim row As Integer = CInt(btn.Tag.ToString().Substring(0, 1)) Dim col As Integer = CInt(btn.Tag.ToString().Substring(1, 1))