mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 02:12:14 +00:00
17 lines
No EOL
474 B
VB.net
17 lines
No EOL
474 B
VB.net
Public Class Shifter
|
|
Public DuWM_PID As Integer 'DuWM Process ID
|
|
|
|
Private Sub Shifter_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Private Sub DuWM_Tick(sender As Object, e As EventArgs)
|
|
If Strings.ProcessID(DuWM_PID) = 0 Then
|
|
Close()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Close()
|
|
End Sub
|
|
End Class |