initial commit

XWorm/Forms/About.vb

@@ -0,0 +1,42 @@
+Imports System.Net
+
+Public Class About
+
+    Public Sub New()
+        InitializeComponent()
+        Opacity = 0
+        FadeIn(Me, 20)
+    End Sub
+
+
+    Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
+        Try
+            Process.Start(LinkLabel4.Text)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub About_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
+        Dim client As New WebClient()
+        Try
+            Dim Resultt As String = "t.me/CelestialProjectRedirect"
+            LinkLabel1.Text = Resultt
+        Catch ex As Exception
+            LinkLabel1.Text = "Failed to load URL content"
+        End Try
+    End Sub
+
+    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
+        Try
+            Process.Start(LinkLabel1.Text)
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
+
+    End Sub
+End Class