Imports System.IO
Imports System.Text
Imports System.Security
Imports System.Security.Cryptography
Public Class frmLoad
Private Sub cmdesc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdesc.Click
End
End Sub
Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click
If optdiz.Checked = True And optnum.Checked = False And optsing.Checked = False And optgen.Checked = False Then
Dim frmDizionario As New frmDizionario
frmDizionario.Show()
Me.Hide()
ElseIf optdiz.Checked = False And optnum.Checked = True And optsing.Checked = False And optgen.Checked = False Then
Dim frmNumerico As New frmNumerico
frmNumerico.Show()
Me.Hide()
ElseIf optdiz.Checked = False And optnum.Checked = False And optsing.Checked = True And optgen.Checked = False Then
Dim frmSingle As New frmSingle
frmSingle.Show()
Me.Hide()
ElseIf optdiz.Checked = False And optnum.Checked = False And optsing.Checked = False And optgen.Checked = True Then
Dim frmGenera As New frmGenera
frmGenera.Show()
Me.Hide()
Else
MessageBox.Show("Scegliere una delle due opzioni!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
End Sub
End Class