Password Generator

Code:

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

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