Подскажите что это за язык программирования?

Public Class Form1
Dim Samp, Gta As Integer
Dim f, flag As Byte
Dim FolderSALogs, FolderSamp As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Samp = 0
Gta = 0
f = 0
flag = 0
Call OpenFile()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer2.Stop()
Dim Processes(), Processes1() As Process
Dim Proc, Proc1 As Process
Processes = Process.GetProcessesByName("samp")
Processes1 = Process.GetProcessesByName("gta_sa")
For Each Proc In Processes
Samp = Proc.HandleCount
Next
For Each Proc1 In Processes1
Gta = Proc1.HandleCount
Next
If f = 0 And Gta > 0 Then
f = 1
End If
If Samp = 0 And f = 0 And flag = 0 Then
Me.Close()
End If
If f = 1 And Gta = 0 Then
f = 0
flag = 1
Call Exit_Gta()
End If
Samp = 0
Gta = 0
End Sub
Public Sub Exit_Gta()
If MsgBox("Вы вышли из игры San Andreas Multiplayer. Хотите запустить программу SALogsManagaer?", MsgBoxStyle.YesNo, "Запрос на запуск SALogsManager") = MsgBoxResult.Yes Then
If System.IO.File.Exists(FolderSALogs) = False Then
MsgBox("Не удается найти файл SALogsManager.exe по пути, указанном вами ранее. Перезапустите программу и исправьте ошибку.", MsgBoxStyle.Critical, "Файл не найден")
Else
Process.Start(FolderSALogs)
End If
End If
flag = 0
End Sub
Public Sub OpenFile()
Dim path As System.Environment.SpecialFolder
path = Environment.SpecialFolder.MyDocuments
Dim s As String = System.Environment.GetFolderPath(path) & "\GTA San Andreas User Files\SAMP\"
If System.IO.File.Exists(s & "savef.txt") = True Then
Dim Savef As New System.IO.StreamReader(s & "savef.txt")
FolderSamp = Savef.ReadLine()
FolderSALogs = Savef.ReadLine()
If System.IO.File.Exists(FolderSamp) = False Or System.IO.File.Exists(FolderSALogs) = False Then
MsgBox("Пути к файлам, указанные вами ранее, в данный момент не ссылаются не на один из файлов. Это могло произойти если вы перемещали файл samp.exe или файл SALogsManager.exe. Пожалуйста укажите их расположение снова", MsgBoxStyle.Critical, "Ошибка")
GoTo 1
End If
Savef.Close()
Process.Start(FolderSamp)
Timer2.Start()
Timer1.Start()
Else
MsgBox("Пожалуйста укажите расположение файлов samp.exe и SALogsManager.exe.", MsgBoxStyle.Information, "Путь к файлам")
End If
1:
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Me.Visible = False
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim path As System.Environment.SpecialFolder
path = Environment.SpecialFolder.MyDocuments
Dim s As String = System.Environment.GetFolderPath(path) & "\GTA San Andreas User Files\SAMP\"
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("Вы не указали пути к файлам samp.exe и SALogsManager.exe! Без них программа работать не будет. Попробуйте снова.", MsgBoxStyle.Critical, "Ошибка")
Else
If System.IO.File.Exists(TextBox1.Text) = False Or System.IO.File.Exists(TextBox2.Text) = False Then
MsgBox("Один из файлов или оба файла не найдены по указанному вами пути. Исправьте ошибку и повторите попытку", MsgBoxStyle.Critical, "Ошибка")
Else
If Microsoft.VisualBasic.Right(TextBox1.Text, 3) <> "exe" Or Microsoft.VisualBasic.Right(TextBox2.Text, 3) <>