Notes

Public Class AnaMenu

Private Sub AnaMenu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call CenterToScreen()
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Normal
Dim a As String = My.Settings.kalansı

My.Settings.kalansı = a - 1
If a = 0 Or 0 > a Then
MessageBox.Show("Deneme sürümünüz bitti, lütfen tam sürüme geçiniz.")
End
Else
MessageBox.Show(a & " Giriş hakkınız kaldı!")
My.Settings.Save()
End If
End Sub

Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
End
End Sub

Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click
If (Panel1.Width = "57") Then
Panel1.Visible = False
Panel1.Width = 227
PanelAnimator.ShowSync(Panel1)
PictureBox10.Width = 572
PictureBox10.Location = New Point(226, 23)
Else
Panel1.Visible = False
Panel1.Width = 57
PanelAnimator.ShowSync(Panel1)
PictureBox10.Width = 800
PictureBox10.Location = New Point(0, 24)
End If
End Sub

Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
On_Menu.Enabled = True
On_Control.Enabled = False
On_Server.Enabled = False
End Sub

Private Sub On_Menu_Tick(sender As Object, e As EventArgs) Handles On_Menu.Tick
Dim hexColor As String = "0x2090FF"
FlatButton4.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub Off_Menu_Tick(sender As Object, e As EventArgs) Handles Off_Menu.Tick
Dim hexColor As String = "0x1B2029"
FlatButton4.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub On_Control_Tick(sender As Object, e As EventArgs) Handles On_Control.Tick
Dim hexColor As String = "0x2090FF"
FlatButton5.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub Off_Control_Tick(sender As Object, e As EventArgs) Handles Off_Control.Tick
Dim hexColor As String = "0x1B2029"
FlatButton5.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub On_Server_Tick(sender As Object, e As EventArgs) Handles On_Server.Tick
Dim hexColor As String = "0x2090FF"
FlatButton6.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub Off_Server_Tick(sender As Object, e As EventArgs) Handles Off_Server.Tick
Dim hexColor As String = "0x1B202F"
FlatButton6.BaseColor = ColorTranslator.FromHtml(hexColor)
End Sub

Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
On_Menu.Enabled = True
Off_Menu.Enabled = False
On_Control.Enabled = False
Off_Control.Enabled = True
On_Server.Enabled = False
Off_Server.Enabled = True
End Sub

Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles FlatButton5.Click
On_Menu.Enabled = False
Off_Menu.Enabled = True
On_Control.Enabled = True
Off_Control.Enabled = False
On_Server.Enabled = False
Off_Server.Enabled = True
End Sub

Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
On_Menu.Enabled = False
Off_Menu.Enabled = True
On_Control.Enabled = False
Off_Control.Enabled = True
On_Server.Enabled = True
Off_Server.Enabled = False
End Sub

Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
Me.Hide
Form1.Show
End Sub
End Class