33 lines
1.0 KiB
VB.net
33 lines
1.0 KiB
VB.net
Imports Microsoft.Win32
|
|
|
|
Public Class frmStart
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
frmRelations.Show()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
frmLookup.Show()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
frmFilesystem.Show()
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Dim oScreen As New DigitalData.Modules.Windows.Screen()
|
|
|
|
MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
frmChecksum.Show()
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
frmDocView.Show()
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button8.Click
|
|
frmEmail.Show()
|
|
End Sub
|
|
End Class |