42 lines
1.3 KiB
VB.net
42 lines
1.3 KiB
VB.net
|
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
|