Option Explicit On
 
Public Class frmPass
 
    Function Random(ByVal Lowerbound As Long, ByVal Upperbound As Long)
        Randomize()
        Random = Int((Upperbound - Lowerbound + 1) * Rnd() + Lowerbound)
    End Function
 
    Function Generate()
 
        Dim num As Integer = 1
 
        Dim thisType(4) As Integer
        thisType(num) = Random(97, 122)
 
        If chkCase.Checked = True Then
            num += 1
            thisType(num) = Random(65, 90)
        End If
 
        If chkNum.Checked = True Then
            num += 1
            thisType(num) = Random(48, 57)
        End If
 
        If chkSymbols.Checked = True Then
            num += 1
            thisType(num) = Random(33, 47)
        End If
 
        Generate = thisType(Random(1, num))
 
    End Function
 
    Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click
 
        txtPass.Text = ""
 
        If IsNumeric(cmbLength.Text) Then
 
            If cmbLength.Text >= 1 And cmbLength.Text <= 30 Then
 
                For x = 1 To Int(cmbLength.Text)
                    txtPass.Text += Chr(Generate())
                Next
 
            Else
 
                MsgBox("Password Length Must Be Within 1-30!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error!")
 
            End If
 
        Else
 
            MsgBox("Password Length Must Be Numeric!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error!")
 
        End If
 
    End Sub
 
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class