Fixed a few issues.

ScreenLocker/LockUI.vb

@@ -9,15 +9,15 @@
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        If Form1.message.Length = 0 Then
-            MsgBox("This computer has been locked by ScreenLocker." + Environment.NewLine + "The user has not left a help message.")
-        Else MsgBox("This computer has been locked by ScreenLocker." + Environment.NewLine + "Help message left by user: " + Form1.message)
+        If Main.message.Length = 0 Then
+            MsgBox("This computer has been locked by ScreenLocker." + vbNewLine + "The user has not left a help message.")
+        Else MsgBox("This computer has been locked by ScreenLocker." + vbNewLine + "Help message left by user: " + Main.message)
         End If
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        If TextBox1.Text = Form1.password Then
-            Form1.Close()
+        If TextBox1.Text = Main.password Then
+            Main.Close()
         Else MsgBox("Incorrect password!")
         End If
 

ScreenLocker/Form1.vb → ScreenLocker/Main.vb

@@ -1,26 +1,25 @@
-
-Public Class Form1
+Public Class Main
     Public Shared password As String
     Public Shared message As String
     Dim Times As Integer
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Times = 0
     End Sub
 
-    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ExitButton.Click
         Me.Close()
     End Sub
 
-    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
-        MsgBox("ScreenLocker v1.3 by Eri/Noxyntious" + Environment.NewLine + "Licensed under MIT")
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles AboutButton.Click
+        MsgBox("ScreenLocker " + My.Application.Info.Version.ToString + " by Eri/Noxyntious" + Environment.NewLine + "Licensed under MIT")
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles LockButton.Click
         If TextBox1.TextLength = 0 Then
             MsgBox("Set a password first!")
         ElseIf TextBox1.Text = TextBox2.Text Then
             If Times = 0 Then
-                MsgBox("Not a good idea to set the message as the password." + Environment.NewLine + "If you really want to, though, click the Lock button again.")
+                MsgBox("Not a good idea to set the message as the password." + vbNewLine + "If you really want to though, click the Lock button again.")
                 Times = 1
             Else GoTo Lock
             End If

ScreenLocker/My Project/Application.myapp

@@ -1,11 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
-  <MainForm>Form1</MainForm>
+  <MainForm>Main</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>
+</MyApplicationData>

ScreenLocker/My Project/AssemblyInfo.vb

@@ -9,10 +9,10 @@ Imports System.Runtime.InteropServices
 ' Review the values of the assembly attributes
 
 <Assembly: AssemblyTitle("ScreenLocker")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyDescription("Lock your screen on computers without the ability to lock.")>
+<Assembly: AssemblyCompany("Noxyntious")>
 <Assembly: AssemblyProduct("ScreenLocker")>
-<Assembly: AssemblyCopyright("Copyright ©  2023")>
+<Assembly: AssemblyCopyright("Copyright © 2025 Noxyntious")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.4.0.0")>
+<Assembly: AssemblyFileVersion("1.4.0.0")>