Boa noite.
Segue sugestão.
Se te ajudar, por gentileza, marque como resposta/útil.
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim str_Caracteres As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" '26 caracteres
str_Caracteres += "abcdefghijklmnopqrstuvwxyz" '26 caracteres
str_Caracteres += "0123456789" '10 caracteres
str_Caracteres += "ÇçÃãÕõÁáÉéÍíÓóÚú" '16 caractres
Dim Caracter_Aleatório As New Random
Dim Título_Form As New StringBuilder
For i As Integer = 1 To 20
Título_Form.Append(str_Caracteres.Substring(Caracter_Aleatório.Next(0, 77), 1)) 'número de caracteres menos 1
Next
Me.Text = Título_Form.ToString
End Sub
MARIANO1776
