[abuzarei]

If IntPtr.Size = 8 Then
            a = ("64 Bit")
        ElseIf IntPtr.Size = 4 Then
            a = ("32 Bit")
        End If

        Try
            Dim xsxs As Boolean
            xsxs = String.IsNullOrEmpty(Environment.GetEnvironmentVariable("PROCESSOR_ARCHITEW6432"))
            If xsxs Then
                MsgBox(My.Computer.Info.OSFullName + " " + a)
                Clipboard.SetText((My.Computer.Info.OSFullName + " " + a))
            End If
        Catch exp As Exception
            'MsgBox(exp.Message)
        End Try