Imports Telerik.WinControls
Imports Telerik.WinControls.UI
Imports System.IO

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ThemeResolutionService.ApplicationThemeName = "Office2010Blue"
    End Sub

    Private Sub RadButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton1.Click
        End
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form4.ShowDialog()
    End Sub

    Private Sub RadMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadMenuItem2.Click
        Dim hasshut
        hasshut = RadMessageBox.Show("Are you sure you want to shutdown?", "Notification", MessageBoxButtons.YesNo)
        If hasshut = DialogResult.Yes Then
            End
        Else
            'Nothing
        End If
    End Sub
End Class